rightCapitalIdentifier :: Gen String
rightCapitalIdentifier = intercalate "." <$> resize 3 (listOf1 capitalIdentifier)
rightCapitalIdentifier :: Gen String
rightCapitalIdentifier = intercalate "." <$> resize 3 (listOf1 capitalIdentifier)
rightCapitalIdentifier = intercalate "." <$> resize 3 (listOf1 capitalIdentifier)