(defun solve (S)
(concatenate 'string S "s"))
(defun main()
(princ (solve (read-line))))
#-swank(main)
Code language: Lisp (lisp) (defun solve (S)
(concatenate 'string S "s"))
(defun main()
(princ (solve (read-line))))
#-swank(main)
Code language: Lisp (lisp)