(print(port-fold(rec(_ x y)(cond((pair? x)(*(cadr x)y))((print y)x)))(read)read))