findWithDefault d k m = maybe (trace "default" d) (trace "existed") $ Map.lookup k m