(define s (read))

(print (if (equal? s "ham")
           "ham"
           (string-append s "ham")))