my $result = unpack "l", pack "l", 1729080737 + 72 * 14 * 425567;
# -2136915023