let set_unit_factor x = unit_factor := x