From the manual http://www.basis.uklinux.net/ursala/manual.pdf
$ fun --main="˜&nSiiDPSLrlXS" --decompile main = compose( map field((0,&),(&,0)), compose( reduce(cat,0), map compose( distribute, compose(field(&,&),map field(&,0)))))
-----