raiz x 
	| x * x < x = x + 1
	| otherwise = raiz' (x-1) x
	where raiz' x y 
		| x * x < y = x
		| otherwise = raiz' (x-1) y