a
cylinder r h =
    let sideArea = 2 * pi * r * h; topArea = pi * r ^ 2
    in sideArea + 2 * topArea

calcBmis2 :: (RealFloat a) => [(a, a)
cylinder :: (RealFloat a) => a -> a -> a
cylinder r h =
    let sideArea = 2 * pi * r * h; topArea = pi * r ^ 2
    in sideArea + 2 * topArea
cylinder r h =
    let sideArea = 2 * pi * r * h; topArea = pi * r ^ 2
    in sideArea + 2 * topArea