judge :: (Fractional a, Ord a) => a -> String
judge w
    | w <= 48.00 = "light fly"
    | w <= 51.00 = "fly"
    | w <= 54.00 = "bantam"
    | w <= 57.00 = "feather"
    | w <= 60.00 = "light"
    | w <= 64.00 = "light welter"
    | w <= 69.00 = "welter"
    | w <= 75.00 = "light middle"
    | w <= 81.00 = "middle"
    | w <= 91.00 = "light heavy"
    | otherwise  = "heavy"

main :: IO ()
main = putStr . unlines . map judge . map read . lines =<< getContents