runParser :: Parser a -> String -> Int -> Int ->
             Either (String, Int, Int) (a, String, Int, Int)
runParser (Parser p) = p
runParser :: Parser a -> String -> Int -> Int ->
             Either (String, Int, Int) (a, String, Int, Int)
runParser (Parser p) = p
runParser (Parser p) = p