#!/usr/local/bin/perl

$i=1;


dbmopen(%OFFSET, "offset", 0644);


while(<>){
        if (/^\%K\s(.*)/){
		$OFFSET{$1} = $i;
		print "-$1-$i-\n";
        }
        $i += length();
}

dbmclose(%OFFSET);
