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