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