module Snail.Characters where

-- | The initial character of any text
initialCharacter :: String
initialCharacter :: String
initialCharacter = [Char
'a' .. Char
'z'] forall a. Semigroup a => a -> a -> a
<> [Char
'A' .. Char
'Z']

-- | ...
specialInitialCharacter :: String
specialInitialCharacter :: String
specialInitialCharacter = String
"!$%&*/:<=>?^_~#,'"

-- | ...
peculiarCharacter :: String
peculiarCharacter :: String
peculiarCharacter = String
"+-."

-- | ...
digitCharacter :: String
digitCharacter :: String
digitCharacter = [Char
'0' .. Char
'9']

-- | ...
specialSubsequentCharacter :: String
specialSubsequentCharacter :: String
specialSubsequentCharacter = String
"+-.@\\"

-- | ...
parenthesisStartingCharacter :: String
parenthesisStartingCharacter :: String
parenthesisStartingCharacter = String
"'`@#,"