(defvar IN) (setq IN (read-line)) (defvar ans "yukicoder") (loop for i from 0 to 8 do (if (eql (aref IN i) #\?) (format t "~c~%" (aref ans i))) )