(port-map(rec,c(display(ucs->char(modulo(*(+(char->ucs c)1)7)128))))read-char)