let pretty fmt s = M.pretty fmt s.map