(* TPK algorithm. *)

let tpk l =
  let f x = sqrt x +. 5.0 *. (x ** 3.0) in
  let p x = x < 400.0 in
    List.filter p (List.map f (List.rev l))