(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((t1 (read-char))
         (nl (read-char))
         (t2 (read-char)))
    (declare (ignore nl))
    (princ "(")
    (write-char t1)
    (write-char t2)
    (write-char t1)
    (princ ")/")
    (terpri)))
(main)