identifierSymbol :: Gen Char
identifierSymbol = elements $ ['A'..'Z'] ++ ['a'..'z'] ++ "'_"
identifierSymbol :: Gen Char
identifierSymbol = elements $ ['A'..'Z'] ++ ['a'..'z'] ++ "'_"
identifierSymbol = elements $ ['A'..'Z'] ++ ['a'..'z'] ++ "'_"