USING: io io.binary kernel math ;

IN: serialize.private

: serialize-cell ( n -- )
[ 0 write1 ] [
dup 126 <=
[ 128 bitor write1 ] [
dup log2 8 /i 1 + dup 127 >=
[ 255 write1 dup serialize-cell ] [ dup write1 ] if
>be write
] if
] if-zero ;