lookupMap :: Ord a => a -> Map a b -> b
lookupMap x xs = case Map.lookup x xs of
    Just y -> y
    Nothing -> error $ "lookupMap can't find key"
lookupMap :: Ord a => a -> Map a b -> b
lookupMap x xs = case Map.lookup x xs of
    Just y -> y
    Nothing -> error $ "lookupMap can't find key"
lookupMap x xs = case Map.lookup x xs of
    Just y -> y
    Nothing -> error $ "lookupMap can't find key"