parseChar :: Token -> Char -> Parser Token
parseChar t c = do
    _ <- AP.char c
    return t
parseChar :: Token -> Char -> Parser Token
parseChar t c = do
    _ <- AP.char c
    return t
parseChar t c = do
    _ <- AP.char c
    return t