f=function(a,b){if(!length(a))write(b,"",6);for(n in a)f(a[a!=n],c(b,n))} f(0:5,c())

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top