(defun main (&rest argv)
  (declare (ignorable argv))
  (format t "~a~%" (ecase (read-char)
                     (#\1 "Shiitakerando")
                     (#\2 "Otsukakokusaibijutsukan")
                     (#\3 "Spring-8"))))

(main)