(while:prn:sum[* _ _](range 1(+(/(read)30.17).58)))