n=scan("stdin") r=c() while(n>0){r=c(n%%2,r);n=n%/%2} cat(r,sep="")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page