(* Compute murmur3 hash of a noun *)
         (* let compute_mug (noun : noun) : int32 = *)
           (* let rec hash_noun n = *)
             (* match n with *)
             (* | Atom z -> *)
                 (* let bytes = Z.to_bits z in *)
                 (* murmur3_hash32 bytes *)
             (* | Cell (h, t) -> *)
                 (* let h_mug = hash_noun h in *)
                 (* let t_mug = hash_noun t in *)
                 (* Combine hashes - simplified version *)
                 (* Int32.logxor h_mug t_mug *)
           (* in *)
           (* hash_noun noun *)