H:1000003#,0N 0N 0N
hadd:{
 i:(#H)!x
 i:{(~y~H[x;1])&~^H[x;0]}[;y]{x+1}/i
 $[i=#H; resize;]
 H[i]:(x;y;z)
}

hget:{
 i:(#H)!x
 i:{(~y~H[x;1])&~^H[x;0]}[;y]{x+1}/i
 H[i;2] }

hadd2:{hadd[5/x;x;y]}
hget2:{hget[5/x;x]}

hadd2[!5;42]
hadd2[!6;43]
hadd2[!7;44]
hadd2[!8;45]
hadd2[!9;46]

hget2[!5]
hget2[!6]
hget2[!7]
hget2[!8]
hget2[!9]
hget2[!10]