solve :: Float -> String
solve w
  | w <= 48.0 = "light fly"
  | w <= 51.0 = "fly"
  | w <= 54.0 = "bantam"
  | w <= 57.0 = "feather"
  | w <= 60.0 = "light"
  | w <= 64.0 = "light welter"
  | w <= 69.0 = "welter"
  | w <= 75.0 = "light middle"
  | w <= 81.0 = "middle"
  | w <= 91.0 = "light heavy"
  | otherwise = "heavy"

main :: IO ()
main = getContents >>= mapM_ (putStrLn . solve . read) . lines