(while(prn:num(/:+(/:read)(/:read))2 t))