! read a 1 or 4 byte big endian int : read-var-int ( -- n ) 1 read first dup 7 bit? [ 127 bitand 3 read swap suffix be> ] when ; : read-name-value-pair ( -- name value ) 2 [ read-var-int ] times [ read ] bi@ ;