procedure main()
    S := []
    writes("Enter 11 numbers: ")
    read() ? every !11 do (tab(many(' \t'))|0,put(S, tab(upto(' \t')|0)))
    every item := !reverse(S) do
        write(item, " -> ", (400 >= f(item)) | "overflows")
end

procedure f(x)
   return abs(x)^0.5 + 5*x^3
end