module WordMap = Map.Make(String)
let wm = WordMap.empty
let wordlist = ["the";"the";"the";"test";"test";"count"]
let mapCount l m =
    let nm =
      List.map (fun k ->
        if WordMap.mem k m then (
          let m = WordMap.add k ((WordMap.find k m) + 1) m
        )
        else let m =  WordMap.add k 1 m
      ) l
    in WordMap.fold (fun k v acc  -> (k, v) :: acc) nm []
 in
 List.iter print_endline (mapCount wordlist wm)