(while 1(.write *out*(bit-and(-(/(/(+(.read *in*)1)))1)-5)))