(use srfi-13);文字列関係
(define x (read ))
(define y (x->string x))
(if (string-contains y "575") (print "YES") (print "NO"))