(do((x(read)(if(oddp x)(1+(* x 3))(/ x 2))))((=(princ x)1))(terpri))