(loop(princ(1+(*(ceiling(read)2)2)))(terpri))