diff options
| author | Sebastian Engel <se@linux.fritz.box> | 2021-11-02 20:12:11 +0100 |
|---|---|---|
| committer | Sebastian Engel <se@linux.fritz.box> | 2021-11-02 20:12:11 +0100 |
| commit | 440a882e73252529d8e12756185edd7436acbd8f (patch) | |
| tree | fc33b712b3b73fd64ce2bb00e551e5beb064da03 /tests/examplefiles/fsharp | |
| parent | 3e686bca752200b2b8050f63223dc1d56db41db9 (diff) | |
| download | pygments-git-440a882e73252529d8e12756185edd7436acbd8f.tar.gz | |
Modernize Whitespace token: dotnet lexer
Diffstat (limited to 'tests/examplefiles/fsharp')
| -rw-r--r-- | tests/examplefiles/fsharp/Deflate.fs.output | 5257 |
1 files changed, 2629 insertions, 2628 deletions
diff --git a/tests/examplefiles/fsharp/Deflate.fs.output b/tests/examplefiles/fsharp/Deflate.fs.output index a645ff16..1eadff47 100644 --- a/tests/examplefiles/fsharp/Deflate.fs.output +++ b/tests/examplefiles/fsharp/Deflate.fs.output @@ -1,1102 +1,1103 @@ -'// public domain\n' Comment.Single +'// public domain' Comment.Single +'\n' Text.Whitespace -'\n' Text +'\n' Text.Whitespace 'module' Keyword -' ' Text +' ' Text.Whitespace 'Deflate' Name.Namespace -'\n\n' Text +'\n\n' Text.Whitespace 'open' Keyword -' ' Text +' ' Text.Whitespace 'System' Name.Namespace -'\n' Text +'\n' Text.Whitespace 'open' Keyword -' ' Text +' ' Text.Whitespace 'System.Collections.Generic' Name.Namespace -'\n' Text +'\n' Text.Whitespace 'open' Keyword -' ' Text +' ' Text.Whitespace 'System.IO' Name.Namespace -'\n' Text +'\n' Text.Whitespace 'open' Keyword -' ' Text +' ' Text.Whitespace 'System.Linq' Name.Namespace -'\n' Text +'\n' Text.Whitespace 'open' Keyword -' ' Text +' ' Text.Whitespace 'Crc' Name.Namespace -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxbuf' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '32768' Literal.Number.Integer -'\n' Text +'\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '258' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'getBit' Name.Variable -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name ':' Operator 'byte' Keyword.Type ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'bit' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1uy' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'bit' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'BitReader' Name.Class '(' Operator 'sin' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Skip' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'ReadBit' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'b' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'sin' Name '.' Operator 'ReadByte' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'バッファを超過しました' Literal.String '"' Literal.String -'\n ' Text +'\n ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'byte' Keyword.Type -' ' Text +' ' Text.Whitespace 'b' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'ret' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1uy' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'bit' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'ret' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'ReadLE' Name.Function -' ' Text +' ' Text.Whitespace 'n' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'ret' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'n' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'ret' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'ret' Name -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'i' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'ret' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'ReadBE' Name.Function -' ' Text +' ' Text.Whitespace 'n' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'ret' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'n' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'ret' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'ret' Name -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'x' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'ret' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'ReadBytes' Name.Function -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'buf' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'byte' Keyword.Type '>' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'ignore' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sin' Name '.' Operator 'Read' Name '(' Operator 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'buf' Name -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'WriteBuffer' Name.Class '(' Operator 'sout' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'prev' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'byte' Keyword.Type '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'next' Name.Variable -' ' Text +' ' Text.Whitespace 'newbuf' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'prev' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'buf' Name -'\n ' Text +'\n ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'newbuf' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'byte' Keyword.Type '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Close' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'next' Name -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n ' Text +'\n ' Text.Whitespace 'next' Name -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n \n ' Text +'\n \n ' Text.Whitespace 'interface' Keyword -' ' Text +' ' Text.Whitespace 'IDisposable' Name -' ' Text +' ' Text.Whitespace 'with' Keyword -'\n ' Text +'\n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Dispose' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'x' Name '.' Operator 'Close' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteByte' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name ':' Operator 'byte' Keyword.Type ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'b' Name -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'WriteByte' Name -' ' Text +' ' Text.Whitespace 'b' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'next' Name -' ' Text +' ' Text.Whitespace 'true' Keyword -'\n\n ' Text +'\n\n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Write' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'src' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace 'start' Name -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator '=' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'src' Name ',' Operator -' ' Text +' ' Text.Whitespace 'start' Name ',' Operator -' ' Text +' ' Text.Whitespace 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'p' Name ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'Write' Name '(' Operator 'src' Name ',' Operator -' ' Text +' ' Text.Whitespace 'start' Name ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'next' Name -' ' Text +' ' Text.Whitespace 'true' Keyword -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'src' Name -' ' Text +' ' Text.Whitespace 'start' Name -' ' Text +' ' Text.Whitespace 'maxlen' Name -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'src' Name -' ' Text +' ' Text.Whitespace '(' Operator 'start' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Copy' Name.Function -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'dist too small: %d < 1' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'dist' Name -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'dist too big: %d > %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'pp' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'dist' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'prev' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'dist too big: %d > %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'pp' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'pp' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator '=' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'prev' Name -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'prev' Name -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace 'maxlen' Name -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Copy' Name -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -' ' Text +' ' Text.Whitespace 'dist' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'pp' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator '=' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'b' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pp' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'WriteByte' Name -' ' Text +' ' Text.Whitespace 'b' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'buf' Name.Variable "'" Keyword -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace "len'" Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace "len'" Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable "'" Keyword "'" Keyword -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator "len'" Name ',' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace "buf'" Name -' ' Text +' ' Text.Whitespace 'pp' Name -' ' Text +' ' Text.Whitespace "len''" Name -'\n ' Text +'\n ' Text.Whitespace "len'" Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace "len'" Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace "len''" Name -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Huffman' Name.Class '(' Operator 'lens' Name @@ -1104,132 +1105,132 @@ 'int' Name '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'vals' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace 'lens' Name '.' Operator 'Length' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'min' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'lens' Name '.' Operator 'Where' Name '(' Operator 'fun' Keyword -' ' Text +' ' Text.Whitespace 'x' Name -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'x' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ')' Operator '.' Operator 'Min' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'max' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'lens' Name '.' Operator 'Max' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'counts' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'max' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'firsts' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'max' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'nexts' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'max' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'tables' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name @@ -1239,302 +1240,302 @@ '>' Operator '(' Operator 'max' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'in' Keyword -' ' Text +' ' Text.Whitespace 'lens' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'max' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'firsts' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'firsts' Name '.' Operator '[' Operator 'i' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'i' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator ')' Operator -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'firsts' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'max' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'vals' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'lens' Name '.' Operator '[' Operator 'i' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'vals' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'len' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'vals' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'lens' Name '.' Operator '[' Operator 'i' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'start' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'firsts' Name '.' Operator '[' Operator 'len' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'tables' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'count' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'start' Name -'\n ' Text +'\n ' Text.Whitespace 'tables' Name '.' Operator '[' Operator 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace 'count' Name -'\n ' Text +'\n ' Text.Whitespace 'tables' Name '.' Operator '[' Operator @@ -1547,65 +1548,65 @@ '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'start' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'i' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'GetValue' Name.Function -' ' Text +' ' Text.Whitespace 'h' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'rec' Name.Variable -' ' Text +' ' Text.Whitespace 'getv' Name -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'max' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'h' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'tables' Name '.' Operator '[' Operator @@ -1614,34 +1615,34 @@ '.' Operator '[' Operator 'h' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'firsts' Name '.' Operator '[' Operator 'i' Name ']' Operator ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'getv' Name -' ' Text +' ' Text.Whitespace '(' Operator 'i' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'getv' Name -' ' Text +' ' Text.Whitespace 'min' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Read' Name.Function @@ -1650,35 +1651,35 @@ ':' Operator 'BitReader' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'rec' Name.Variable -' ' Text +' ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace 'h' Name -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'h' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'nexts' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'tables' Name '.' Operator '[' Operator @@ -1687,524 +1688,524 @@ '.' Operator '[' Operator 'h' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'firsts' Name '.' Operator '[' Operator 'i' Name ']' Operator ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator '(' Operator 'h' Name -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'i' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadBE' Name -' ' Text +' ' Text.Whitespace 'min' Name ')' Operator -' ' Text +' ' Text.Whitespace 'min' Name -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace '[<' Operator 'AbstractClass' Name '>]' Operator -' ' Text +' ' Text.Whitespace 'HuffmanDecoder' Name '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'abstract' Keyword -' ' Text +' ' Text.Whitespace 'GetValue' Name ':' Operator -' ' Text +' ' Text.Whitespace 'unit' Keyword.Type '->' Operator 'int' Name -'\n ' Text +'\n ' Text.Whitespace 'abstract' Keyword -' ' Text +' ' Text.Whitespace 'GetDistance' Name ':' Operator -' ' Text +' ' Text.Whitespace 'unit' Keyword.Type '->' Operator 'int' Name -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'FixedHuffman' Name.Class '(' Operator 'br' Name ':' Operator 'BitReader' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'inherit' Keyword -' ' Text +' ' Text.Whitespace 'HuffmanDecoder' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'GetValue' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'v' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBE' Name -' ' Text +' ' Text.Whitespace '7' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '24' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'v' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '192' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '48' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '200' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '(' Operator '(' Operator 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'GetDistance' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBE' Name -' ' Text +' ' Text.Whitespace '5' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'DynamicHuffman' Name.Class '(' Operator 'br' Name ':' Operator 'BitReader' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'inherit' Keyword -' ' Text +' ' Text.Whitespace 'HuffmanDecoder' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'lit' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'dist' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hlit' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hlit' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '5' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '257' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'hlit' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '286' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'hlit: %d > 286' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'hlit' Name -'\n ' Text +'\n ' Text.Whitespace 'hlit' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hdist' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hdist' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '5' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'hdist' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '32' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'hdist: %d > 32' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'hdist' Name -'\n ' Text +'\n ' Text.Whitespace 'hdist' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hclen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hclen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'hclen' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '19' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String 'hclen: %d > 19' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'hclen' Name -'\n ' Text +'\n ' Text.Whitespace 'hclen' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'clen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hclens' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '19' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'order' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '[|' Operator -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '17' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '18' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '7' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '9' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '6' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '10' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '5' Literal.Number.Integer ';' Operator -'\n ' Text +'\n ' Text.Whitespace '11' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '12' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '13' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '14' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ';' Operator -' ' Text +' ' Text.Whitespace '15' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '|]' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'hclen' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hclens' Name '.' Operator '[' Operator @@ -2214,28 +2215,28 @@ 'i' Name ']' Operator ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'Huffman' Name '(' Operator 'hclens' Name ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'ld' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name @@ -2244,463 +2245,463 @@ '>' Operator '(' Operator 'hlit' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'hdist' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'ld' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'v' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'clen' Name '.' Operator 'Read' Name '(' Operator 'br' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'ld' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -'\n ' Text +'\n ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'r' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'match' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace 'with' Keyword -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'ld' Name '.' Operator '[' Operator 'i' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '17' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '18' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '7' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '11' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '_' Operator -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な値です。' Literal.String '"' Literal.String -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'j' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'r' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'ld' Name '.' Operator '[' Operator 'i' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'j' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -'\n ' Text +'\n ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'r' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'Huffman' Name '(' Operator 'ld' Name '.' Operator '[' Operator '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '..' Operator -' ' Text +' ' Text.Whitespace 'hlit' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator ')' Operator ',' Operator -'\n ' Text +'\n ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'Huffman' Name '(' Operator 'ld' Name '.' Operator '[' Operator 'hlit' Name -' ' Text +' ' Text.Whitespace '..' Operator -' ' Text +' ' Text.Whitespace 'hlit' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'hdist' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'GetValue' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'lit' Name '.' Operator 'Read' Name -' ' Text +' ' Text.Whitespace 'br' Name -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'GetDistance' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'dist' Name '.' Operator 'Read' Name -' ' Text +' ' Text.Whitespace 'br' Name -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'getLitExLen' Name.Variable -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '265' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '285' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'v' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '261' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '>' Operator '>' Operator '>' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -'\n' Text +'\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'getDistExLen' Name.Variable -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'd' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '>' Operator '>' Operator '>' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'litlens' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'litlens' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '286' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '257' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace '284' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -'\n ' Text +'\n ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'getLitExLen' Name -' ' Text +' ' Text.Whitespace 'i' Name ')' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator '285' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -'\n ' Text +'\n ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator @@ -2708,1128 +2709,1128 @@ '..' Operator '285' Literal.Number.Integer ']' Operator -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'distlens' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'distlens' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '30' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace '29' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'distlens' Name '.' Operator '[' Operator 'i' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -'\n ' Text +'\n ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'getDistExLen' Name -' ' Text +' ' Text.Whitespace 'i' Name ')' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'distlens' Name -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Reader' Name.Class '(' Operator 'sin' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'inherit' Keyword -' ' Text +' ' Text.Whitespace 'Stream' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'br' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'BitReader' Name '(' Operator 'sin' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'fh' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'FixedHuffman' Name '(' Operator 'br' Name ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'sout' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'MemoryStream' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'dbuf' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'WriteBuffer' Name '(' Operator 'sout' Name ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'cache' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'canRead' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword -'\n\n ' Text +'\n\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'rec' Name.Variable -' ' Text +' ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'h' Name ':' Operator 'HuffmanDecoder' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'v' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'h' Name '.' Operator 'GetValue' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '285' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な値: %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'v' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'dbuf' Name '.' Operator 'WriteByte' Name '(' Operator 'byte' Keyword.Type -' ' Text +' ' Text.Whitespace 'v' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '265' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '254' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator 'v' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '257' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '(' Operator 'getLitExLen' Name -' ' Text +' ' Text.Whitespace 'v' Name ')' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'dist' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'd' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'h' Name '.' Operator 'GetDistance' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '29' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な距離: %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'd' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'distlens' Name '.' Operator '[' Operator 'd' Name ']' Operator -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '(' Operator 'getDistExLen' Name -' ' Text +' ' Text.Whitespace 'd' Name ')' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'dbuf' Name '.' Operator 'Copy' Name -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'dist' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'v' Name -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace 'h' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'CanRead' Name.Function -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'canRead' Name -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'CanWrite' Name.Function -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'CanSeek' Name.Function -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Flush' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Close' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'dbuf' Name '.' Operator 'Close' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'canRead' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Read' Name.Function '(' Operator 'buffer' Name ',' Operator -' ' Text +' ' Text.Whitespace 'offset' Name ',' Operator -' ' Text +' ' Text.Whitespace 'count' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'offset' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'cache' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'clen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'cache' Name '.' Operator 'Length' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator 'clen' Name ',' Operator -' ' Text +' ' Text.Whitespace 'count' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'cache' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'buffer' Name ',' Operator -' ' Text +' ' Text.Whitespace 'offset' Name ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'cache' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'clen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace 'cache' Name '.' Operator '[' Operator 'len' Name -' ' Text +' ' Text.Whitespace '..' Operator -' ' Text +' ' Text.Whitespace 'clen' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'req' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'int64' Keyword.Type -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'count' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'offset' Name -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'canRead' Name -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'sout' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'req' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'readBlock' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'sout' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0L' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'data' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'sout' Name '.' Operator 'ToArray' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'SetLength' Name '(' Operator '0L' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'dlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'data' Name '.' Operator 'Length' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'req' Name ',' Operator -' ' Text +' ' Text.Whitespace 'dlen' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'data' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'buffer' Name ',' Operator -' ' Text +' ' Text.Whitespace 'offset' Name ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'dlen' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'cache' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'data' Name '.' Operator '[' Operator 'len' Name '..' Operator ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'offset' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Position' Name.Function -'\n ' Text +'\n ' Text.Whitespace 'with' Keyword -' ' Text +' ' Text.Whitespace 'get' Name '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'and' Operator.Word -' ' Text +' ' Text.Whitespace 'set' Name '(' Operator 'v' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Length' Name.Function -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Seek' Name.Function '(' Operator '_' Operator ',' Operator -' ' Text +' ' Text.Whitespace '_' Operator ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Write' Name.Function '(' Operator '_' Operator ',' Operator -' ' Text +' ' Text.Whitespace '_' Operator ',' Operator -' ' Text +' ' Text.Whitespace '_' Operator ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'override' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'SetLength' Name.Function '(' Operator '_' Operator ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'raise' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'NotImplementedException' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'private' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Operator 'readBlock' Name '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'bfinal' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadBit' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'match' Keyword -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'with' Keyword -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'Skip' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'len' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'nlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'br' Name '.' Operator 'ReadLE' Name -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'nlen' Name -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer 'x10000' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な非圧縮長' Literal.String '"' Literal.String -'\n ' Text +'\n ' Text.Whitespace 'dbuf' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace '(' Operator 'br' Name '.' Operator 'ReadBytes' Name -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace 'fh' Name -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'DynamicHuffman' Name '(' Operator 'br' Name ')' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '_' Operator -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正なブロックタイプ' Literal.String '"' Literal.String -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'bfinal' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'canRead' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Close' Name '()' Name.Builtin.Pseudo -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'BitWriter' Name.Class '(' Operator 'sout' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Skip' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'WriteByte' Name '(' Operator 'cur' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'interface' Keyword -' ' Text +' ' Text.Whitespace 'IDisposable' Name -' ' Text +' ' Text.Whitespace 'with' Keyword -'\n ' Text +'\n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Dispose' Name.Function '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Skip' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'Flush' Name '()' Name.Builtin.Pseudo -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteBit' Name.Function @@ -3838,226 +3839,226 @@ ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace '(' Operator '(' Operator 'byte' Keyword.Type -' ' Text +' ' Text.Whitespace 'b' Name ')' Operator -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'bit' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'WriteByte' Name '(' Operator 'cur' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'bit' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'cur' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0uy' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteLE' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'WriteBit' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'i' Name ')' Operator ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteBE' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'downto' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'WriteBit' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '(' Operator '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace 'i' Name ')' Operator ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteBytes' Name.Function @@ -4067,499 +4068,499 @@ 'byte' Keyword.Type '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Skip' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'sout' Name '.' Operator 'Write' Name '(' Operator 'data' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'data' Name '.' Operator 'Length' Name ')' Operator -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'FixedHuffmanWriter' Name.Class '(' Operator 'bw' Name ':' Operator 'BitWriter' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Write' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '144' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBE' Name -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer 'b110000' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBE' Name -' ' Text +' ' Text.Whitespace '9' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '144' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer 'b110010000' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '280' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBE' Name -' ' Text +' ' Text.Whitespace '7' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'elif' Keyword -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '288' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBE' Name -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '(' Operator 'b' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '280' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer 'b11000000' Name ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteLen' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な長さ: %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'll' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '285' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator 'll' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '257' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'll' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'll' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'x' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace 'll' Name -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteLE' Name -' ' Text +' ' Text.Whitespace '(' Operator 'getLitExLen' Name -' ' Text +' ' Text.Whitespace 'll' Name ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'litlens' Name '.' Operator '[' Operator 'll' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '257' Literal.Number.Integer ']' Operator ')' Operator -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'WriteDist' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'd' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '|' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'failwith' Name -' ' Text +' ' Text.Whitespace '<' Operator '|' Operator -' ' Text +' ' Text.Whitespace 'sprintf' Name -' ' Text +' ' Text.Whitespace '"' Literal.String '不正な距離: %d' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'd' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'dl' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '29' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'd' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'distlens' Name '.' Operator '[' Operator 'dl' Name ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'dl' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'dl' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBE' Name -' ' Text +' ' Text.Whitespace '5' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'dl' Name -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteLE' Name -' ' Text +' ' Text.Whitespace '(' Operator 'getDistExLen' Name -' ' Text +' ' Text.Whitespace 'dl' Name ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'd' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'distlens' Name '.' Operator '[' Operator 'dl' Name ']' Operator ')' Operator -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxbuf2' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '*' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -'\n' Text +'\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'buflen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'maxbuf2' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'inline' Name.Variable -' ' Text +' ' Text.Whitespace 'getHash' Name -' ' Text +' ' Text.Whitespace '(' Operator 'buf' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace '(' Operator '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name ']' Operator ')' Operator -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '^^' Operator '^' Operator -' ' Text +' ' Text.Whitespace '(' Operator '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator ')' Operator -' ' Text +' ' Text.Whitespace '<' Operator '<' Operator '<' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '^^' Operator '^' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ']' Operator ')' Operator -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'inline' Name.Variable -' ' Text +' ' Text.Whitespace 'addHash' Name -' ' Text +' ' Text.Whitespace '(' Operator 'hash' Name ':' Operator @@ -4569,62 +4570,62 @@ '>' Operator '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'buf' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name ']' Operator -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hash' Name '.' Operator '[' Operator 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'pos' Name ']' Operator '.' Operator 'Add' Name -' ' Text +' ' Text.Whitespace 'pos' Name -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'inline' Name.Variable -' ' Text +' ' Text.Whitespace 'addHash2' Name -' ' Text +' ' Text.Whitespace '(' Operator 'tables' Name ':' Operator @@ -4633,336 +4634,336 @@ ',' Operator ']' Operator ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'counts' Name ':' Operator 'int' Name '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'buf' Name ':' Operator 'byte' Keyword.Type '[]' Name.Builtin.Pseudo ')' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name ']' Operator -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'h' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'pos' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'c' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'h' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'tables' Name '.' Operator '[' Operator 'h' Name ',' Operator -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '15' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -'\n ' Text +'\n ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'h' Name ']' Operator -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Writer' Name.Class '(' Operator 't' Name ':' Operator 'int' Name ',' Operator -' ' Text +' ' Text.Whitespace 'sin' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buflen' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'buf' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'byte' Keyword.Type '>' Operator -' ' Text +' ' Text.Whitespace 'buflen' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'tables' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'counts' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 't' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'Array2D' Name.Namespace '.' Punctuation 'zeroCreate' Name '<' Operator 'int' Name '>' Operator -' ' Text +' ' Text.Whitespace '4096' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'create' Name -' ' Text +' ' Text.Whitespace '4096' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace 'null' Keyword ',' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hash' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'tables' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '[|' Operator -' ' Text +' ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace '_' Operator -' ' Text +' ' Text.Whitespace 'in' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer '..' Operator '4095' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'List' Name '<' Operator 'int' Name '>' Operator '()' Name.Builtin.Pseudo -' ' Text +' ' Text.Whitespace '|]' Operator -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace 'null' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'crc' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '~' Operator '~' Operator '~' Operator '0u' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'read' Name.Variable -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'rlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'sin' Name '.' Operator 'Read' Name '(' Operator 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'pos' Name ',' Operator -' ' Text +' ' Text.Whitespace 'len' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'rlen' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'rlen' Name -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'rlen' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'b' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'int' Name '(' Operator 'crc' Name -' ' Text +' ' Text.Whitespace '^^' Operator '^' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'uint32' Keyword.Type -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator @@ -4970,1775 +4971,1775 @@ ']' Operator ')' Operator ')' Operator -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer 'xff' Name -'\n ' Text +'\n ' Text.Whitespace 'crc' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'crc' Name -' ' Text +' ' Text.Whitespace '>' Operator '>' Operator '>' Operator -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer ')' Operator -' ' Text +' ' Text.Whitespace '^^' Operator '^' Operator -' ' Text +' ' Text.Whitespace 'crc32_table' Name '.' Operator '[' Operator 'b' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'list' Keyword.Type -' ' Text +' ' Text.Whitespace 'in' Keyword -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -' ' Text +' ' Text.Whitespace 'list' Keyword.Type '.' Operator 'Clear' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'fill' Name -' ' Text +' ' Text.Whitespace 'counts' Name -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator 'Length' Name -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n \n ' Text +'\n \n ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'buflen' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'search' Name.Variable -' ' Text +' ' Text.Whitespace '(' Operator 'pos' Name ':' Operator 'int' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator 'maxlen' Name ',' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'pos' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'last' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Max' Name '(' Operator '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'pos' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'h' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'pos' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace '<' Operator '>' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'list' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'hash' Name '.' Operator '[' Operator 'h' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'list' Keyword.Type '.' Operator 'Count' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '>' Operator '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'p' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'list' Keyword.Type '.' Operator '[' Operator 'i' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'last' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'mlen' Name -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'c' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'counts' Name '.' Operator '[' Operator 'h' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'p1' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'p2' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'c' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '16' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p2' Name -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '>' Operator '=' Operator -' ' Text +' ' Text.Whitespace 'p1' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'p' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'tables' Name '.' Operator '[' Operator 'h' Name ',' Operator -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '&&' Operator '&' Operator -' ' Text +' ' Text.Whitespace '15' Literal.Number.Integer ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'last' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'mlen' Name -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'pos' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'maxp' Name ',' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n \n ' Text +'\n \n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Crc' Name.Function -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '~' Operator '~' Operator '~' Operator 'crc' Name -'\n\n ' Text +'\n\n ' Text.Whitespace 'member' Keyword -' ' Text +' ' Text.Whitespace 'x' Name '.' Punctuation 'Compress' Name.Function -' ' Text +' ' Text.Whitespace '(' Operator 'sout' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'use' Keyword -' ' Text +' ' Text.Whitespace 'bw' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'BitWriter' Name '(' Operator 'sout' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteBit' Name -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'bw' Name '.' Operator 'WriteLE' Name -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'hw' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'FixedHuffmanWriter' Name '(' Operator 'bw' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'match' Keyword -' ' Text +' ' Text.Whitespace 't' Name -' ' Text +' ' Text.Whitespace 'with' Keyword -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'b' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator 'maxlen' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'p' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'mlen' Name -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'b' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteLen' Name '(' Operator 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteDist' Name -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'search' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'b' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'addHash2' Name -' ' Text +' ' Text.Whitespace 'tables' Name -' ' Text +' ' Text.Whitespace 'counts' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteLen' Name -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteDist' Name -' ' Text +' ' Text.Whitespace '(' Operator 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxp' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'addHash2' Name -' ' Text +' ' Text.Whitespace 'tables' Name -' ' Text +' ' Text.Whitespace 'counts' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf2' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'buflen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'addHash2' Name -' ' Text +' ' Text.Whitespace 'tables' Name -' ' Text +' ' Text.Whitespace 'counts' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '->' Operator -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'b' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name ']' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer ']' Operator -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mutable' Name.Variable -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '4' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'mlen' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Math' Name.Namespace '.' Punctuation 'Min' Name '(' Operator 'maxlen' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'p' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'mlen' Name -' ' Text +' ' Text.Whitespace '&&' Operator -' ' Text +' ' Text.Whitespace 'b' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name ']' Operator -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'len' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'b' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteLen' Name '(' Operator 'len' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteDist' Name -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'len' Name -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'search' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'b' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'addHash' Name -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteLen' Name -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteDist' Name -' ' Text +' ' Text.Whitespace '(' Operator 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxp' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'addHash' Name -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf2' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'buflen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'addHash' Name -' ' Text +' ' Text.Whitespace 'hash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace '|' Operator -' ' Text +' ' Text.Whitespace '_' Operator -' ' Text +' ' Text.Whitespace '->' Operator -'\n ' Text +'\n ' Text.Whitespace 'while' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name.Variable ',' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'search' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'maxp' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name '(' Operator 'int' Name -' ' Text +' ' Text.Whitespace 'buf' Name '.' Operator '[' Operator 'p' Name ']' Operator ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'hash' Name '.' Operator '[' Operator 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'p' Name ']' Operator '.' Operator 'Add' Name -' ' Text +' ' Text.Whitespace 'p' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -'\n ' Text +'\n ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteLen' Name -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'WriteDist' Name -' ' Text +' ' Text.Whitespace '(' Operator 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxp' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hash' Name '.' Operator '[' Operator 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name ']' Operator '.' Operator 'Add' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxl' Name -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'maxbuf2' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -'\n ' Text +'\n ' Text.Whitespace 'Array' Name.Namespace '.' Punctuation 'Copy' Name '(' Operator 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name ',' Operator -' ' Text +' ' Text.Whitespace 'buf' Name ',' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace 'buflen' Name -' ' Text +' ' Text.Whitespace 'then' Keyword -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'length' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -' ' Text +' ' Text.Whitespace 'else' Keyword -'\n ' Text +'\n ' Text.Whitespace 'read' Name -' ' Text +' ' Text.Whitespace '(' Operator 'maxbuf' Name -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 'maxlen' Name ')' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '<-' Operator -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace 'maxbuf' Name -'\n ' Text +'\n ' Text.Whitespace 'for' Keyword -' ' Text +' ' Text.Whitespace 'i' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'to' Keyword -' ' Text +' ' Text.Whitespace 'p' Name -' ' Text +' ' Text.Whitespace '-' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace 'do' Keyword -'\n ' Text +'\n ' Text.Whitespace 'hash' Name '.' Operator '[' Operator 'getHash' Name -' ' Text +' ' Text.Whitespace 'buf' Name -' ' Text +' ' Text.Whitespace 'i' Name ']' Operator '.' Operator 'Add' Name -' ' Text +' ' Text.Whitespace 'i' Name -'\n ' Text +'\n ' Text.Whitespace 'hw' Name '.' Operator 'Write' Name -' ' Text +' ' Text.Whitespace '256' Literal.Number.Integer -'\n\n' Text +'\n\n' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'GetCompressBytes' Name.Variable -' ' Text +' ' Text.Whitespace '(' Operator 'sin' Name ':' Operator 'Stream' Name ')' Operator -' ' Text +' ' Text.Whitespace '=' Operator -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'now' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'DateTime' Name.Namespace '.' Punctuation 'Now' Name -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'ms' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'MemoryStream' Name '()' Name.Builtin.Pseudo -'\n ' Text +'\n ' Text.Whitespace 'let' Keyword -' ' Text +' ' Text.Whitespace 'w' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'Writer' Name '(' Operator '1' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace 'sin' Name ')' Operator -'\n ' Text +'\n ' Text.Whitespace 'w' Name '.' Operator 'Compress' Name -' ' Text +' ' Text.Whitespace 'ms' Name -'\n ' Text +'\n ' Text.Whitespace 'ms' Name '.' Operator 'ToArray' Name '()' Name.Builtin.Pseudo ',' Operator -' ' Text +' ' Text.Whitespace 'w' Name '.' Operator 'Crc' Name -'\n' Text +'\n' Text.Whitespace |