alias largehash.write {
var %n = $$1, %i = 1
while (%i <= %n) {
bset &b %i $base($iif($isbit(%i,1),A5,5A),16,10)
inc %i
}
if ($hget(largehash)) { hfree largehash }
hmake largehash
hadd -sb largehash item &b
noop $hget(largehash,item,&c)
echo -a largehash:item is $bvar(&c,0) in size
hsave -sb largehash largehash.hash
}
alias largehash.read {
if ($hget(largehash)) { hfree largehash }
hmake largehash
hload -sb largehash largehash.hash
noop $hget(largehash,item,&b)
echo -a largehash:item is $bvar(&b,0) in size
}