(use parley)
(let ((old (current-input-port)))
     (current-input-port (make-parley-port old)))