1 def frequencyMap[A](as: List[A]): Map[A, Int] =
2     as.foldMap((a: A) => Map(a -> 1))(mapMergeMonoid[A, Int](Monoid[Int])) 3                                                   //> frequencyMap: [A](as: List[A])Map[A,Int]
4 frequencyMap("the brown quik fox is running quikly".toList) 5   //> res24: Map[Char,Int] = Map(e -> 1, s -> 1, x -> 1, n -> 4, y -> 1, t -> 1, 6   //| u -> 3, f -> 1, i -> 4, -> 6, q -> 2, b -> 1, g -> 1, l -> 1, h -> 1, r - 7   //| > 2, w -> 1, k -> 2, o -> 2)