>>> :t alaSet VCat alaSet VCat :: Set a -> Set' VCat (Identity a) a
>>> :t alaSet' FSep Token alaSet' FSep Token :: Set String -> Set' FSep Token String
>>> unpack' (alaSet' FSep Token) <$> eitherParsec "foo bar foo" Right (fromList ["bar","foo"])