(port-fold(rec(_ c n)(if(= c 89)(print n))(+ n 1))0 read-byte)