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);