pickName :: MapGenM m => NameGenerator -> m String
pickName (NGString s)        = return s
pickName :: MapGenM m => NameGenerator -> m String
pickName (NGString s)        = return s
pickName (NGString s)        = return s