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