let print_floats fl =
  List.iter (fun x -> print_float x; print_string "\t") fl;
  print_string "\n"