(* TPK imperative version. *)

let tpk () =
  let f x = sqrt x +. 5.0 *. (x ** 3.0) in
  let pr f = print_endline (if f > 400.0 then "overflow" else string_of_float f) in
  let read () = float_of_string (read_line ()) in

  let a = Array.init 11 (fun _ -> read ()) in
  for i = 10 downto 0 do
    pr (f a.(i))
  done