main = do
        dataset <- getContents
        mapM_ putStrLn $ map (show.truncate.fst).filter (\p -> snd p >= 25).map ((\[id,w,h] -> (id, bmi w h)).map read.commaSplit).lines $ dataset
commaSplit :: String -> [String]
commaSplit [] = []
commaSplit str = h : commaSplit rest
    where (h,r) = break (== ',') str
          rest  = if null r then []
                            else tail r

bmi :: Double -> Double -> Double
bmi w h = w / h^2