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