#!/usr/bin/perl -w
use XHVKC;
use Time::HiRes qw( time );
$o = new XHVKC;
$time = time;
for(0..300000){
     for (int(rand 6)+1) {$o->get($_);}
}
print "time was ".(time-$time)."\n";
$time = time;

for(0..300000){
     for (int(rand 6)+1) {$o->getKC($_);}
}
print "time was ".(time-$time)."\n";