lexEscape = fromJust <$> ((
lexOp "a" (toChar 7) <|> lexOp "b" '\b' <|> lexOp "f" '\f' <|>
lexOp "n" '\n' <|> lexOp "r" '\t' <|> lexOp "v" '\v' <|>
lexEscape = fromJust <$> ((
lexOp "a" (toChar 7) <|> lexOp "b" '\b' <|> lexOp "f" '\f' <|>
lexOp "n" '\n' <|> lexOp "r" '\t' <|> lexOp "v" '\v' <|>