capitalIdentifier :: Gen String
--capitalIdentifier = (:) <$> capitalLetter <*> (resize 5 $ listOf identifierSymbol)
capitalIdentifier = concat <$> resize 2 (listOf1 $ capitalize <$> elements validNames)
capitalIdentifier :: Gen String
capitalIdentifier = concat <$> resize 2 (listOf1 $ capitalize <$> elements validNames)
capitalIdentifier = concat <$> resize 2 (listOf1 $ capitalize <$> elements validNames)