;
;; hack for checking is a string exists in another string
; (if #f (cl:string-find-char "M 3.4, Central California" "M"))
(define cl:string-find
(lambda (s find)
(if (> (string-length s)
(string-length (cl:string-replace s find "")))
#t
#f)))