DEFINITION ex2_c()
TYPE =
       C
BODY =
CSort O