import Control.Monad
import Control.Applicative
import Data.Functor
import Data.Function
import Data.Monoid
import Data.Maybe
import Data.List
import Data.Foldable (foldMap)
import Data.List.Split
import Data.Char
import Data.Ratio
import Data.Ord
import Data.Array.IO
 
readInt = read :: String -> Int
readDouble = read :: String -> Double
getInt = readLn :: IO Int
getInts = map readInt . words <$> getLine
sjoin :: (Show a) => [a] -> String
sjoin = unwords . map show
cond :: a -> a -> Bool -> a
cond t f c = if c then t else f
-- end of templete

toClass 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 = map (toClass . readDouble) . lines <$> getContents >>= mapM_ putStrLn