-> [a]
calcBmis2 xs = [ bmi | (w, h) <- xs, let bmi = w / h ^ 2 ]

calcBmisFat :: (RealFloat a) => [(a, 
calcBmis2 :: (RealFloat a) => [(a, a)] -> [a]
calcBmis2 xs = [ bmi | (w, h) <- xs, let bmi = w / h ^ 2 ]
calcBmis2 xs = [ bmi | (w, h) <- xs, let bmi = w / h ^ 2 ]