(do((z(read)(/(if(odd? z)(+(* z 6)2)z)2)))((=(begin(print z)1)z)))