(use srfi-13) (define x (read )) (if (string-contains (x->string x) "575") (print "yes") (print "no"))