(while 1(prn(apply *(range 1(+(read)1)))))