[Haskell-beginners] Square root algorithm