(loop(princ(round(read)))(terpri))