(port-map(pa$ format #t"~:d
")read)