let hash c = let i = try int_of_big_int c with Failure _ -> int_of_big_int (rem c billion_one) in 197 + i