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"

import Control.Monad

foo = 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"

The output is "dankmemes", by the way.