lookupWithDef :: Ord k => a -> k -> M.Map k a -> Either String a
lookupWithDef a k m = Right $ M.findWithDefault a k m
lookupWithDef :: Ord k => a -> k -> M.Map k a -> Either String a
lookupWithDef a k m = Right $ M.findWithDefault a k m
lookupWithDef a k m = Right $ M.findWithDefault a k m