;; This function returns #t if substr is a substring of str, #f otherwise
(define (substring? str substr)
  (let ((strlen (string-length str)))
    (if (< strlen (string-length substr))
        #f
        (if (string=? substr (substring str 0 strlen))
            #t
            (substring? (substring str 1 strlen) substr)))))