(use slib)(while(read)=> n(require'#0=printf)(if(< n 1023)(print n)(if(< n #1=1046529)(#0#"%.2f KB
"(/ n 1023))(#0#"%.2f MB
"(/ n #1#)))))