k:1024;p:printf;thru 1343 do if(n:?read())<k then p(?t,"~a ",n)else if n<k*k then p(?t,"~,2f KB ",n/k)else p(?t,"~,2f MB ",(n+9)/k^2);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page