Cuadrado :: Integer -> integer
Cuadrado x = x * x

menor :: (Integer, Integer) -> Integer
menor (x,y) = if x <= y then x else y

promedio :: (Double, Double) -> Double
promedio (x, y) = (x + y) / 2