I need a function in scheme that counts the frequency of a character

;;example
(count-freq "she sells seashells")
(list
(make-charfreq #\s 6)
(make-charfreq #\h 2)
(make-charfreq #\e 4)
(make-charfreq #\space 2)
(make-charfreq #\l 4)
(make-charfreq #\a 1))
 
;;so far I've only been able to come up with this-  it's wrong though and the recursion is messed up
 
;;(make-charfreq #\t 4)
(define-struct charfreq (ch freq)) 
 
;;count-freq : string -> list
;;takes a string representing a message and produces a list of the frequency each character in the string appears
;;(define (count-freq string)...)
;;Example: (count-freq "she sells seashells") should produce
;;(list
;;(make-charfreq #\s 6)
;;(make-charfreq #\h 2)
;;(make-charfreq #\e 4)
;;(make-charfreq #\space 2)
;;(make-charfreq #\l 4)
;;(make-charfreq #\a 1))
 
(define (count-freq string)
  (cond
    [(empty? (string->list string)) '()]
    [(insert-char (first (string->list string)) (string->list string))]
    [else (insert-char char (rest (list->string string)))]))
 
(define (insert-char char string)
  (cond
  [(empty? (char-freq char)) (= (char-freq char) 1)]
    [(char=? (first (string->list string)) (second (string->list string))) 
            (+ 1 (charfreq-freq char))])) 
    
(count-freq "she sells seashells")

Select allOpen in new window