(do('write-byte(\ #0=(read-byte))(c #0#(if(=\ c)#0#c)))(#f)'\(flush)(inc!\(compare c\)))