USING: kernel math sequences.private ;

IN: vlists

: valist-at ( key i array -- value ? )
over 0 >= [
3dup nth-unsafe =
[ [ 1 + ] dip nth-unsafe nip t ]
[ [ 2 - ] dip valist-at ] if
] [ 3drop f f ] if ; inline recursive