(some #(.write *out*%)(reverse(take-while #(>% 0)(repeatedly #(.read *in*)))))