LOCAL s : SET OF STRING := []; END_LOCAL; REPEAT i := 1 TO SIZEOF(input) BY 1; s := s + input[i]\characterized_object.name; END_REPEAT; RETURN(s);