k:1023;p:printf;thru 1361 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/k^2);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page