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