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