(do('write-byte)(#f)'(if(< 64(set! ~(read-byte))91)(if'32(+ ~ 32))~))