     
 : read-128-ber ( -- n )
     0 (read-128-ber) ;
+
+<PRIVATE
 
 CONSTANT: pack-table
     H{

    ] [
        drop
    ] if ;

: >128-ber ( n -- str )
    [

: big-endian? ( -- ? )
    1 <int> *char zero? ;

<PRIVATE

: set-big-endian ( -- )
    big-endian? big-endian set ; inline

PRIVATE>

: >endian ( obj n -- str )
    big-endian get [ >be ] [ >le ] if ; inline
