import Control.Applicative
import System.IO
import Control.Monad
import Data.List
import Data.List.Split

bmi h w =  w / h^2

convert :: [String] -> Bool
convert [] = False
convert (a:b:c:_) = 
    let
        h = read c :: Double
        w = read b :: Double
    in
        bmi h w > 23

main = do
    c <- lines <$> getContents
    mapM_ putStrLn . map (\(c:_) -> c) 
        $ filter convert $ map (splitOn ",") c

