 
 M: A length drop N ; inline
 
+M: A equal?
+    over \ A instance? [ v= vall? ] [ 2drop f ] if ;
+
 : A-deref ( n seq -- n' seq' )
     over N/2 < [ underlying1>> ] [ [ N/2 - ] dip underlying2>> ] if \ A/2 boa ; inline
 

    [ drop 16 <byte-array> \ A boa ]
    [ N bad-length ]
    if ; inline

M: A equal? over \ A instance? [ sequence= ] [ 2drop f ] if ;

M: A c:byte-length underlying>> length ; inline


    [ drop 16 <byte-array> 16 <byte-array> \ A boa ]
    [ N bad-length ]
    if ; inline

M: A c:byte-length drop 32 ; inline

