isCtl Char Bool isCtl let ord in 31 130 ctl CharParser st Char ctl sat

isCtl :: Char -> Bool
isCtl c = let n = ord c
          in (n > 0 && n < 31) || n == 130
ctl :: CharParser st Char
ctl = satisfy (isCtl) <?> "ctl symbol"

separator :: Parser Char
separator = oneOf "()<>@,;:\\\"/[]?={} \v"