lowerIdentifier :: Gen String
--lowerIdentifier = (:) <$> lowerLetter <*> (resize 5 $ listOf identifierSymbol)
lowerIdentifier = elements validNames <++>
    (concat <$> resize 1 (listOf $ capitalize <$> elements validNames))
lowerIdentifier :: Gen String
lowerIdentifier = elements validNames <++>
    (concat <$> resize 1 (listOf $ capitalize <$> elements validNames))
lowerIdentifier = elements validNames <++>
    (concat <$> resize 1 (listOf $ capitalize <$> elements validNames))