(loop(if(<(princ(read))9)(terpri)q))