library blablabla initializer init

define
    end=endfunction
enddefine

/*
blablabla
*/

define
    exf=public function
    void=takes nothing returns nothing
enddefine

exf init void
end

endlibrary

method operator [] takes integer i returns string
            return SubString(.str,i,i+1)
        endmethod

        method operator[]= takes integer i, string ch returns nothing
            set .str=SubString(.str,0,i)+ch+SubString(.str,i+1,StringLength(.str)-i)
        endmethod

        method operator< takes  operatortest b returns boolean
            return StringLength(this.str) < StringLength(b.str)
        endmethod

************************************
    interface indexed
        method operator [] takes integer index returns ordered
        method operator []= takes integer index, ordered v returns nothing
    endinterface
************************************

//Как то так, вроде бы...