(while 1(prn(bit-or(+(read)1)1)))