REPEAT i := 1 TO HIINDEX(input2); IF NOT (input1 IN TYPEOF(input2)) THEN RETURN(FALSE); END_IF; END_REPEAT; RETURN(TRUE);