Cuadrado más cercano
Definir la función
| 1 |    cuadradoCercano :: Integer -> Integer | 
tal que cuadradoCercano n es el número cuadrado más cercano a n, donde n es un entero positivo. Por ejemplo,
| 1 2 3 4 |    cuadradoCercano 2       == 1    cuadradoCercano 6       == 4    cuadradoCercano 8       == 9    cuadradoCercano (10^46) == 10000000000000000000000000000000000000000000000 |