$<.bytes{|c|T||=c
c!=putc(T+=c<=>T)&&redo}