(port-fold-right(rec(_ c l)(apply print #0=`(,c,@l,c))#0#)()read-char)