(use srfi-1)
(define s (string->list(x->string(read))))
(define s2 (string->list "yukicoder"))
(print (car(lset-difference char=? s2 s)))