let parse_four_digits str pos =
    parse_two_digits str pos * 100 + parse_two_digits str (pos + 2)