main = do
    weights <- fmap (map read.lines) getContents
    mapM_ (putStrLn.classify) $ weights

classify :: Double -> String
classify w
    | w <= 48 = "light fly"
    | w <= 51 = "fly"
    | w <= 54 = "bantam"
    | w <= 57 = "feather"
    | w <= 60 = "light"
    | w <= 64 = "light welter"
    | w <= 69 = "welter"
    | w <= 75 = "light middle"
    | w <= 81 = "middle"
    | w <= 91 = "light heavy"
    | otherwise = "heavy"