but now I see these errors :

• Main.hs@8:19-8:23

  No instance for (Show (a0 -> a0)) arising from a use of `show' Possible fix: add an instance declaration for (Show (a0 -> a0)) In the first argument of `putStrLn', namely `(show x)' In a stmt of a 'do' block: putStrLn (show x) In the expression: do { let x n = n * n; putStrLn (show n); putChar ' '; putStrLn (show x); loop (n + 1) }