#(do((z(read)(/(if(odd? z)(+(* z 6)2)z)2)))((=(begin(format #t"~y"z)1)z)))