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)))))
-----
#import std #import nat #comment -[ solves the general case of the 8 queens problem; invoke as queens -n, where n is a number > 3]- #executable <'par',''> #optimize+ queens = %np+~command.options.&h.keyword.&iNC; -+ ~&iNC+ file$[contents: --<''>+ %nLP*=; * '<'%='[ '+ ','%=', '+ '>'%=' ]']+ ~&rSSs+ nleq-<&l*rFlhthPXPSPS, ~&i&& ~&lNrNCXX; ~&rr->rl %tLnLtXLLWXMk+ ^/~&l ~&lrrhrSiF4E?/~&rrlPlCrtPX ~&r; ^|/~& ^|T\~& -+ -<&l^|*DlrTS/~& ~&iiDlSzyCK9hlPNNXXtCS, ^jrX/~& ~&rZK20lrpblPOlrEkPK13lhPK2; ~&i&& nleq$-&lh+-, ^/~&NNXS+iota -<&l+ ~&plll2llr2lrPrNCCCCNXS*=irSxPSp+ ^H/block iota; *iiK0 ^/~& sum+-