#!/usr/local/bin/sbcl --script

(format t "'~a'~%" (read))
(finish-output)

(with-open-file (rpipe (make-pathname :name "pipe")
                       :direction :input)
  (format t "'~a'~%" (read))
  (finish-output))