let rec read u =
  try let line = read_float () in
      let w = match line with
        i when i <= 48. -> "light fly"
      | i when i <= 51. -> "fly"
      | i when i <= 54. -> "bantam"
      | i when i <= 57. -> "feather"
      | i when i <= 60. -> "light"
      | i when i <= 64. -> "light welter"
      | i when i <= 69. -> "welter"
      | i when i <= 75. -> "light middle"
      | i when i <= 81. -> "middle"
      | i when i <= 91. -> "light heavy"
      | _ -> "heavy" in
      print_endline w;read u
  with End_of_file -> ();;

let () = read ();;