 : 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

    ] [
        drop
    ] if ;

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

    
: read-128-ber ( -- n )
    0 (read-128-ber) ;

<PRIVATE

CONSTANT: pack-table
    H{
