Am 23.07.2011 03:40, schrieb Dennis Raddle: ... > listOutMap :: Ord k => Map k [a] -> [(k,a)] > listOutMap m = concatMap (\(k,a) -> zip (repeat k) a) (M.toList m) ... instead of "zip" and "repeat" I prefer just "map": "\ (k, as) -> map (\ a -> (k, a)) as" (and don't bother to switch on TupleSections for "(k,)") C.