bmi :: Float -> Float -> Float
bmi w h = w / (h ^ 2)

isFat :: Float -> Bool
isFat = (>=25.0)

solve :: [(Int, Float, Float)] -> [(Int, Float, Float)]
solve = filter f
  where f (_, w, h) = isFat $ bmi w h

main :: IO ()
main = getContents >>= mapM_ printResult . solve . input
  where input = map (tup . words) . lines . map c2s
        printResult (i, _, _) = print i
        tup (i:w:h:_) = (read i, read w, read h)
        c2s ',' = ' '
        c