let bits_of_value = ref (fun _ _ -> assert false)