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