 : 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

: double, ( n -- ) double>bits 8 b, ;
: c-string, ( str -- ) % 0 u8, ;

: (>128-ber) ( n -- )
    dup 0 > [
        [ HEX: 7f bitand HEX: 80 bitor , ] keep -7 shift

    ] [
        drop
    ] if ;

PRIVATE>

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