let dummy_composition_role = 
  ref (new Types.composition_role (Call (new Types.call_type 0 [])))