struct Data

    private thistype next
    private thistype prev

    static method create takes nothing returns thistype
        set this.next=thistype(0).next
        set this.next.prev=this
        set this.prev=thistype(0)
        set thistype(0).next=this
    endmethod

endstruct