Standard input is empty
[1 of 1] Compiling Main ( prog.hs, prog.o )
prog.hs:1:21:
Occurs check: cannot construct the infinite type: a = [a]
Expected type: a -> [a] -> a
Inferred type: a -> [a] -> [a]
In the first argument of `foldl', namely `(:)'
In the second argument of `($)', namely `foldl (:) [] "abcd"'
Standard output is empty