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