在球拍中，如何将列表转换为键字典

Question

基本上，我只想将列表转换成键字典。

例如我要转换

(define-struct asc (key val))

(list "a" "a" "a" "L" "L" "L" "k") 

进入

(list (make-asc "a" 3) (make-asc "L" 3) (make-asc "K" 1)) 

字典中的值是键在列表中存在的次数。任何建议表示赞赏。