(port-fold(rec(_ c p)(if p(not(display #`",c,p"))c))#f read-char)