procedure f (x)
    return (sqrt(abs(x)) + 5.0*x*x*x)
end

procedure main (args)
    A := table (0);       # let A be a table with default value 0
    every A[0 to 10] := read()
    every i := 10-(0 to 10) do
        write (i, " ",  400.0 > f(A[i]) | "TOO LARGE", "\n")
end