(while([prn:if(< _ 999)_(+(num(/ _(if(< _(= b 1046529))1023 b))2 t)(if(< _ b)" KB"" MB"))](read)))