FUNCTION eis_remove_lines ,array , fragment


r = WHERE(STRMID(array , 0 , 2) EQ fragment                 ,    $
                                   count                    ,    $
                                   complement  = complement ,    $
                                   ncomplement = n)

IF (count EQ 0) THEN RETURN , array


RETURN , array[complement]

END