(while 1(doseq[%(str(+(read)))i[8 4 2 1]](pr(mod(quot(-(int%)45)i)2)))(prn))