(while:prn:sum[* _ _](range 1(read)))