import Data.List.Split
import Data.Maybe
import Control.Applicative

type Student = (Int, Double, Double)

toStudent :: [String] -> Student
toStudent [] = (0, 0, 0)
toStudent (x:y:z:_) =
  let num = read x :: Int
      weight = read y :: Double
      height = read z :: Double
  in
      (num, weight, height)
toStudent [_] = (0, 0, 0)
toStudent [_, _] = (0, 0, 0)


toStudent' :: [[String]] -> [Student]
toStudent' [] = []
toStudent' xs = map toStudent xs

bmi :: Student -> Maybe Int
bmi (0, 0, 0) = Nothing
bmi (i, w, h) =
  let h2 = h * h
      b = w / h2
  in
      if b >= 25.0
        then Just i
        else Nothing

solver :: [Student] -> [Maybe Int]
solver [] = []
solver xs = map bmi xs


main :: IO()
main = do
  contents <- map (splitOn ",") . lines <$> getContents
  let sList = toStudent' contents
      ans = catMaybes $ solver sList
  mapM_ print ans