let parse_two_digits str pos = let d1 = Char.get_digit_exn str.[pos] in let d2 = Char.get_digit_exn str.[pos + 1] in 10 * d1 + d2