Paste: read-var-int

: read-var-int ( -- n/f )
    read1 [
        7 bit?
        [ 127 bitand 3 read swap suffix be> ] when
    ] [ f ] if* ;