> [a]
calcBmis xs = [ bmi w h | (w, h) <- xs ]
    where bmi weight height = weight / height ^ 2
-- calcBmis [(109, 1.83), (85, 1.90)]

cylinder :: (RealFloat a) => a -> a -
calcBmis :: (RealFloat a) => [(a, a)] -> [a]
calcBmis xs = [ bmi w h | (w, h) <- xs ]
    where bmi weight height = weight / height ^ 2
-- calcBmis [(109, 1.83), (85, 1.90)]
calcBmis xs = [ bmi w h | (w, h) <- xs ]
    where bmi weight height = weight / height ^ 2
-- calcBmis [(109, 1.83), (85, 1.90)]