(port-fold-right(rec(_ c l)(apply print(append #0=(cons c l)(reverse #0#)))#0#)()read-char)