ON bit fixed by nn

(b,n)="$System.in".split()*.toLong()
f={c,s->!b--|c<0?c||println(s):f(c-1,s+0)&f(c,s+1);++b}
f(b-n,'')

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

download

return to the top page