(use srfi-13) (define x (read )) (if (string-contains (symbol->string x) "575") (print "YES") (print "NO"))