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