M73H45NECYJAVHY635NOBISTSQXEZH3SQMB3OJODGGXZLJVSU3IQC
(my $res1, $stdout, $stderr) = captureStdoutStderr(600,
("hg", "heads", $branch));
die "Error getting head of $branch from `$uri':\n$stderr" unless $res1;
(my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "'{node|short} {branch}'"));
die "Error getting branch and revision of $id from `$uri':\n$stderr" unless $res1;