method set_composition (a:'s _type_of_composition) = composition <- a