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