Hazkell thread

let h=head;t=tail;f=flip;b=f f;d=(.);e=d.d;g=b h;i=b t;a=ap;c=(:)in a((f a t).(.h).i.(a.).g.(d.).i.((f.(a.)).).g.((f.(d.)).).i.((f.((f.(a.)).)).).g.((f.((f.(d.)).)).).i.((f.((f.((f.(a.)).)).)).).g.((f.((f.((f.(d.)).)).)).).i.((f.((f.((f.((f.(a.)).)).)).)).).g.((f.((f.((f.((f.((d.(const.)).)).)).)).)).).f(e.e.d.c).(.(((f(d.c).).).f(e.c).liftM2 d c.ap(e.c)(f(d.c).(.(:[])).c))).e.e.c.h)t "adekmns"

>>1
GHCi, version 7.6.3: http://www.haskell.org/ghc/ :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
Prelude> let h=head;t=tail;f=flip;b=f f;d=(.);e=d.d;g=b h;i=b t;a=ap;c=(:)in a((f a t).(.h).i.(a.).g.(d.).i.((f.(a.)).).g.((f.(d.)).).i.((f.((f.(a.)).)).).g.((f.((f.(d.)).)).).i.((f.((f.((f.(a.)).)).)).).g.((f.((f.((f.(d.)).)).)).).i.((f.((f.((f.((f.(a.)).)).)).)).).g.((f.((f.((f.((f.((d.(const.)).)).)).)).)).).f(e.e.d.c).(.(((f(d.c).).).f(e.c).liftM2 d c.ap(e.c)(f(d.c).(.(:[])).c))).e.e.c.h)t "adekmns"

<interactive>:2:58:
Not in scope: `ap'
Perhaps you meant one of these:
`a' (line 2), `map' (imported from Prelude)

<interactive>:2:339: Not in scope: `liftM2'

<interactive>:2:350:
Not in scope: `ap'
Perhaps you meant one of these:
`a' (line 2), `map' (imported from Prelude)