package OO::Index;

sub new {
    my $self;
    open RAM, '>', \$self;
    seek RAM, 2**28, 0;
    print RAM chr(0);
    close RAM;
    return bless \$self, $_[0];
}

sub get {
    my( $self, $idx ) = @_;
    return unpack 'V', substr $$self, $idx*4, 4;
}

sub set {
    my( $self, $idx, $value ) = @_;
    substr $$self, $idx*4, 4, pack 'V', $value;
    return $value;
}
1;