$z=<>;sub f{for(2..$z){$z/=$z%$_?next:$_;return$z>1?&f:$_;}}$_=sprintf"%b",f;s/1/-/g;s/0/_/g;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page