'Red'         Name.Variable
' '           Text
'['           Generic.Strong
'\n    '      Text
'Title:'      Generic.Subheading
'  '          Text
'"'           Literal.String
'Red console' Literal.String
'"'           Literal.String
'\n    '      Text
'Author:'     Generic.Subheading
' '           Text
'['           Generic.Strong
'"'           Literal.String
'Nenad Rakocevic' Literal.String
'"'           Literal.String
' '           Text
'"'           Literal.String
'Kaj de Vos'  Literal.String
'"'           Literal.String
']'           Generic.Strong
'\n    '      Text
'File:'       Generic.Subheading
'   '         Text
'%console.red' Name.Decorator
'\n    '      Text
'Tabs:'       Generic.Subheading
'   '         Text
'4'           Literal.Number
'\n    '      Text
'Rights:'     Generic.Subheading
' '           Text
'"'           Literal.String
'Copyright '  Literal.String
'('           Literal.String
'C'           Literal.String
')'           Literal.String
' 2012-2013 Nenad Rakocevic. All rights reserved.' Literal.String
'"'           Literal.String
'\n    '      Text
'License:'    Generic.Subheading
' '           Text
'{'           Literal.String
'\n        Distributed under the Boost Software License, Version 1.0.\n        See https://github.com/dockimbel/Red/blob/master/BSL-License.txt\n    ' Literal.String
'}'           Literal.String
'\n    '      Text
'Purpose:'    Generic.Subheading
'    '        Text
'"'           Literal.String
'Just some code for testing Pygments colorizer' Literal.String
'"'           Literal.String
'\n    '      Text
'Language:'   Generic.Subheading
'   '         Text
'http://www.red-lang.org/' Name.Decorator
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'#system-global' Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n    '      Text
'#either'     Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'='           Operator
' '           Text
"'Windows"    Name.Variable.Instance
' '           Text
'['           Generic.Strong
'\n        '  Text
'#import'     Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n            ' Text
'"'           Literal.String
'kernel32.dll' Literal.String
'"'           Literal.String
' '           Text
'stdcall'     Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n                ' Text
'AttachConsole:' Generic.Subheading
'   '         Text
'"'           Literal.String
'AttachConsole' Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'\n                    ' Text
'processID'   Name.Variable
'       '     Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n                ' Text
'SetConsoleTitle:' Generic.Subheading
' '           Text
'"'           Literal.String
'SetConsoleTitleA' Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'\n                    ' Text
'title'       Name.Variable
'           ' Text
'['           Generic.Strong
'c-string!'   Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n                ' Text
'ReadConsole:' Generic.Subheading
'     '       Text
'"'           Literal.String
'ReadConsoleA' Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'\n                    ' Text
'consoleInput' Name.Variable
'    '        Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'buffer'      Name.Variable
'          '  Text
'['           Generic.Strong
'byte-ptr!'   Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'charsToRead' Name.Variable
'     '       Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'numberOfChars' Name.Variable
'   '         Text
'['           Generic.Strong
'int-ptr!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'inputControl' Name.Variable
'    '        Text
'['           Generic.Strong
'int-ptr!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n        '  Text
'line-buffer-size:' Generic.Subheading
' '           Text
'16'          Literal.Number
' '           Text
'*'           Operator
' '           Text
'1024'        Literal.Number
'\n        '  Text
'line-buffer:' Generic.Subheading
' '           Text
'allocate'    Name.Variable
' '           Text
'line-buffer-size' Name.Variable
'\n    '      Text
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'#switch'     Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'['           Generic.Strong
'\n            ' Text
'MacOSX'      Name.Variable
' '           Text
'['           Generic.Strong
'\n                ' Text
'#define'     Keyword.Namespace
' '           Text
'ReadLine-library' Name.Variable
' '           Text
'"'           Literal.String
'libreadline.dylib' Literal.String
'"'           Literal.String
'\n            ' Text
']'           Generic.Strong
'\n            ' Text
'#default'    Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n                ' Text
'#define'     Keyword.Namespace
' '           Text
'ReadLine-library' Name.Variable
' '           Text
'"'           Literal.String
'libreadline.so.6' Literal.String
'"'           Literal.String
'\n                ' Text
'#define'     Keyword.Namespace
' '           Text
'History-library' Name.Variable
'  '          Text
'"'           Literal.String
'libhistory.so.6' Literal.String
'"'           Literal.String
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n        '  Text
'#import'     Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n            ' Text
'ReadLine-library' Name.Variable
' '           Text
'cdecl'       Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n                ' Text
'read-line:'  Generic.Subheading
' '           Text
'"'           Literal.String
'readline'    Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'  '          Text
'; Read a line from the console.\n' Comment

'                    ' Text
'prompt'      Name.Variable
'          '  Text
'['           Generic.Strong
'c-string!'   Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'c-string!'   Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n                ' Text
'rl-bind-key:' Generic.Subheading
' '           Text
'"'           Literal.String
'rl_bind_key' Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'\n                    ' Text
'key'         Name.Variable
'             ' Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'command'     Name.Variable
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n                ' Text
'rl-insert:'  Generic.Subheading
'   '         Text
'"'           Literal.String
'rl_insert'   Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'\n                    ' Text
'count'       Name.Variable
'           ' Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'key'         Name.Variable
'             ' Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                    ' Text
'return:'     Generic.Subheading
'         '   Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n            ' Text
'#if'         Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'<>'          Operator
' '           Text
"'MacOSX"     Name.Variable.Instance
' '           Text
'['           Generic.Strong
'\n                ' Text
'History-library' Name.Variable
' '           Text
'cdecl'       Keyword.Namespace
' '           Text
'['           Generic.Strong
'\n                    ' Text
'add-history:' Generic.Subheading
' '           Text
'"'           Literal.String
'add_history' Literal.String
'"'           Literal.String
' '           Text
'['           Generic.Strong
'  '          Text
'; Add line to the history.\n' Comment

'                        ' Text
'line'        Name.Variable
'        '    Text
'['           Generic.Strong
'c-string!'   Keyword.Type
']'           Generic.Strong
'\n                    ' Text
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n\n        ' Text
'rl-insert-wrapper:' Generic.Subheading
' '           Text
'func'        Name.Builtin
' '           Text
'['           Generic.Strong
'\n            ' Text
'['           Generic.Strong
'cdecl'       Keyword.Namespace
']'           Generic.Strong
'\n            ' Text
'count'       Name.Variable
'   '         Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n            ' Text
'key'         Name.Variable
'     '       Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n            ' Text
'return:'     Generic.Subheading
' '           Text
'['           Generic.Strong
'integer!'    Keyword.Type
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'['           Generic.Strong
'\n            ' Text
'rl-insert'   Name.Variable
' '           Text
'count'       Name.Variable
' '           Text
'key'         Name.Variable
'\n        '  Text
']'           Generic.Strong
'\n        \n    ' Text
']'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'Windows?:'   Generic.Subheading
' '           Text
'system'      Name.Exception
'/platform'   Name.Attribute
' '           Text
'='           Operator
' '           Text
"'Windows"    Name.Variable.Instance
'\n\n'        Text

'read-argument:' Generic.Subheading
' '           Text
'routine'     Name.Builtin
' '           Text
'['           Generic.Strong
'\n    '      Text
'/local'      Name.Attribute
'\n        '  Text
'args'        Name.Variable
' '           Text
'['           Generic.Strong
'str-array!'  Keyword.Type
']'           Generic.Strong
'\n        '  Text
'str'         Name.Variable
'  '          Text
'['           Generic.Strong
'red-string!' Keyword.Type
']'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'['           Generic.Strong
'\n    '      Text
'if'          Name.Builtin
' '           Text
'system'      Name.Exception
'/args-count' Name.Attribute
' '           Text
'<>'          Operator
' '           Text
'2'           Literal.Number
' '           Text
'['           Generic.Strong
'\n        '  Text
'SET_RETURN'  Name.Variable
'('           Generic.Strong
'none-value'  Text
')'           Generic.Strong
'\n        '  Text
'exit'        Name.Exception
'\n    '      Text
']'           Generic.Strong
'\n    '      Text
'args:'       Generic.Subheading
' '           Text
'system'      Name.Exception
'/args-list'  Name.Attribute
' '           Text
'+'           Operator
' '           Text
'1'           Literal.Number
'                          ' Text
';-- skip binary filename\n' Comment

'    '        Text
'str:'        Generic.Subheading
' '           Text
'simple-io'   Name.Variable
'/read-txt'   Name.Attribute
' '           Text
'args'        Name.Variable
'/item'       Name.Attribute
'\n    '      Text
'SET_RETURN'  Name.Variable
'('           Generic.Strong
'str'         Text
')'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'init-console:' Generic.Subheading
' '           Text
'routine'     Name.Builtin
' '           Text
'['           Generic.Strong
'\n    '      Text
'str'         Name.Variable
' '           Text
'['           Generic.Strong
'string!'     Keyword.Type
']'           Generic.Strong
'\n    '      Text
'/local'      Name.Attribute
'\n        '  Text
'ret'         Name.Variable
'\n'          Text

']'           Generic.Strong
'['           Generic.Strong
'\n    '      Text
'#either'     Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'='           Operator
' '           Text
"'Windows"    Name.Variable.Instance
' '           Text
'['           Generic.Strong
'\n        '  Text
';ret: AttachConsole -1\n' Comment

'        '    Text
';if zero? ret [print-line "ReadConsole failed!" halt]\n' Comment

'        \n        ' Text
'ret:'        Generic.Subheading
' '           Text
'SetConsoleTitle' Name.Variable
' '           Text
'as'          Name.Variable
' '           Text
'c-string!'   Keyword.Type
' '           Text
'string'      Name.Variable
'/rs-head'    Name.Attribute
' '           Text
'str'         Name.Variable
'\n        '  Text
'if'          Name.Builtin
' '           Text
'zero?'       Keyword
' '           Text
'ret'         Name.Variable
' '           Text
'['           Generic.Strong
'print-line'  Name.Variable
' '           Text
'"'           Literal.String
'SetConsoleTitle failed!' Literal.String
'"'           Literal.String
' '           Text
'halt'        Name.Exception
']'           Generic.Strong
'\n    '      Text
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'rl-bind-key' Name.Variable
' '           Text
'as-integer'  Name.Variable
' '           Text
'tab'         Name.Builtin.Pseudo
' '           Text
'as-integer'  Name.Variable
' '           Text
':rl-insert-wrapper' Generic.Subheading
'\n    '      Text
']'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'input:'      Generic.Subheading
' '           Text
'routine'     Name.Builtin
' '           Text
'['           Generic.Strong
'\n    '      Text
'prompt'      Name.Variable
' '           Text
'['           Generic.Strong
'string!'     Keyword.Type
']'           Generic.Strong
'\n    '      Text
'/local'      Name.Attribute
'\n        '  Text
'len'         Name.Variable
' '           Text
'ret'         Name.Variable
' '           Text
'str'         Name.Variable
' '           Text
'buffer'      Name.Variable
' '           Text
'line'        Name.Variable
'\n'          Text

']'           Generic.Strong
'['           Generic.Strong
'\n    '      Text
'#either'     Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'='           Operator
' '           Text
"'Windows"    Name.Variable.Instance
' '           Text
'['           Generic.Strong
'\n        '  Text
'len:'        Generic.Subheading
' '           Text
'0'           Literal.Number
'\n        '  Text
'print'       Name.Builtin
' '           Text
'as'          Name.Variable
' '           Text
'c-string!'   Keyword.Type
' '           Text
'string'      Name.Variable
'/rs-head'    Name.Attribute
' '           Text
'prompt'      Name.Variable
'\n        '  Text
'ret:'        Generic.Subheading
' '           Text
'ReadConsole' Name.Variable
' '           Text
'stdin'       Name.Variable
' '           Text
'line-buffer' Name.Variable
' '           Text
'line-buffer-size' Name.Variable
' '           Text
':len'        Generic.Subheading
' '           Text
'null'        Name.Builtin.Pseudo
'\n        '  Text
'if'          Name.Builtin
' '           Text
'zero?'       Keyword
' '           Text
'ret'         Name.Variable
' '           Text
'['           Generic.Strong
'print-line'  Name.Variable
' '           Text
'"'           Literal.String
'ReadConsole failed!' Literal.String
'"'           Literal.String
' '           Text
'halt'        Name.Exception
']'           Generic.Strong
'\n        '  Text
'len:'        Generic.Subheading
' '           Text
'len'         Name.Variable
' '           Text
'+'           Operator
' '           Text
'1'           Literal.Number
'\n        '  Text
'line-buffer' Name.Variable
'/len:'       Name.Attribute
' '           Text
'null-byte'   Name.Builtin.Pseudo
'\n        '  Text
'str:'        Generic.Subheading
' '           Text
'string'      Name.Variable
'/load'       Name.Attribute
' '           Text
'as'          Name.Variable
' '           Text
'c-string!'   Keyword.Type
' '           Text
'line-buffer' Name.Variable
' '           Text
'len'         Name.Variable
'\n    '      Text
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'line:'       Generic.Subheading
' '           Text
'read-line'   Name.Variable
' '           Text
'as'          Name.Variable
' '           Text
'c-string!'   Keyword.Type
' '           Text
'string'      Name.Variable
'/rs-head'    Name.Attribute
' '           Text
'prompt'      Name.Variable
'\n        '  Text
'if'          Name.Builtin
' '           Text
'line'        Name.Variable
' '           Text
'='           Operator
' '           Text
'null'        Name.Builtin.Pseudo
' '           Text
'['           Generic.Strong
'halt'        Name.Exception
']'           Generic.Strong
'  '          Text
'; EOF\n'     Comment

'\n         ' Text
'#if'         Keyword.Namespace
' '           Text
'OS'          Name.Variable
' '           Text
'<>'          Operator
' '           Text
"'MacOSX"     Name.Variable.Instance
' '           Text
'['           Generic.Strong
'add-history' Name.Variable
' '           Text
'line'        Name.Variable
']'           Generic.Strong
'\n\n        ' Text
'str:'        Generic.Subheading
' '           Text
'string'      Name.Variable
'/load'       Name.Attribute
' '           Text
'line'        Name.Variable
'  '          Text
'1'           Literal.Number
' '           Text
'+'           Operator
' '           Text
'length?'     Name.Function
' '           Text
'line'        Name.Variable
'\n'          Text

';       free as byte-ptr! line\n' Comment

'    '        Text
']'           Generic.Strong
'\n    '      Text
'SET_RETURN'  Name.Variable
'('           Generic.Strong
'str'         Text
')'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'count-delimiters:' Generic.Subheading
' '           Text
'function'    Name.Builtin
' '           Text
'['           Generic.Strong
'\n    '      Text
'buffer'      Name.Variable
'  '          Text
'['           Generic.Strong
'string!'     Keyword.Type
']'           Generic.Strong
'\n    '      Text
'return:'     Generic.Subheading
' '           Text
'['           Generic.Strong
'block!'      Keyword.Type
']'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'['           Generic.Strong
'\n    '      Text
'list:'       Generic.Subheading
' '           Text
'copy'        Name.Function
' '           Text
'['           Generic.Strong
'0'           Literal.Number
' '           Text
'0'           Literal.Number
']'           Generic.Strong
'\n    '      Text
'c:'          Generic.Subheading
' '           Text
'none'        Name.Builtin.Pseudo
'\n    \n    ' Text
'foreach'     Name.Builtin
' '           Text
'c'           Name.Variable
' '           Text
'buffer'      Name.Variable
' '           Text
'['           Generic.Strong
'\n        '  Text
'case'        Name.Builtin
' '           Text
'['           Generic.Strong
'\n            ' Text
'escaped?'    Name.Variable
' '           Text
'['           Generic.Strong
'\n                ' Text
'escaped?:'   Generic.Subheading
' '           Text
'no'          Name.Builtin.Pseudo
'\n            ' Text
']'           Generic.Strong
'\n            ' Text
'in-comment?' Name.Variable
' '           Text
'['           Generic.Strong
'\n                ' Text
'switch'      Name.Builtin
' '           Text
'c'           Name.Variable
' '           Text
'['           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
'^/"'         Literal.String.Char
' '           Text
'['           Generic.Strong
'in-comment?:' Generic.Subheading
' '           Text
'no'          Name.Builtin.Pseudo
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n            ' Text
"'else"       Name.Variable.Instance
' '           Text
'['           Generic.Strong
'\n                ' Text
'switch'      Name.Builtin
' '           Text
'c'           Name.Variable
' '           Text
'['           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
'^^"'         Literal.String.Char
' '           Text
'['           Generic.Strong
'escaped?:'   Generic.Subheading
' '           Text
'yes'         Name.Builtin.Pseudo
']'           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
';"'          Literal.String.Char
'  '          Text
'['           Generic.Strong
'if'          Name.Builtin
' '           Text
'zero?'       Keyword
' '           Text
'list'        Name.Variable
'/2'          Name.Attribute
' '           Text
'['           Generic.Strong
'in-comment?:' Generic.Subheading
' '           Text
'yes'         Name.Builtin.Pseudo
']'           Generic.Strong
']'           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
'["'          Literal.String.Char
'  '          Text
'['           Generic.Strong
'list'        Name.Variable
'/1:'         Name.Attribute
' '           Text
'list'        Name.Variable
'/1'          Name.Attribute
' '           Text
'+'           Operator
' '           Text
'1'           Literal.Number
']'           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
']"'          Literal.String.Char
'  '          Text
'['           Generic.Strong
'list'        Name.Variable
'/1:'         Name.Attribute
' '           Text
'list'        Name.Variable
'/1'          Name.Attribute
' '           Text
'-'           Operator
' '           Text
'1'           Literal.Number
']'           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
'{"'          Literal.String.Char
'  '          Text
'['           Generic.Strong
'list'        Name.Variable
'/2:'         Name.Attribute
' '           Text
'list'        Name.Variable
'/2'          Name.Attribute
' '           Text
'+'           Operator
' '           Text
'1'           Literal.Number
']'           Generic.Strong
'\n                    ' Text
'#"'          Literal.String.Char
'}"'          Literal.String.Char
'  '          Text
'['           Generic.Strong
'list'        Name.Variable
'/2:'         Name.Attribute
' '           Text
'list'        Name.Variable
'/2'          Name.Attribute
' '           Text
'-'           Operator
' '           Text
'1'           Literal.Number
']'           Generic.Strong
'\n                ' Text
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n    '      Text
']'           Generic.Strong
'\n    '      Text
'list'        Name.Variable
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'do-console:' Generic.Subheading
' '           Text
'function'    Name.Builtin
' '           Text
'['           Generic.Strong
']'           Generic.Strong
'['           Generic.Strong
'\n    '      Text
'buffer:'     Generic.Subheading
' '           Text
'make'        Name.Function
' '           Text
'string!'     Keyword.Type
' '           Text
'10000'       Literal.Number
'\n    '      Text
'prompt:'     Generic.Subheading
' '           Text
'red-prompt:' Generic.Subheading
' '           Text
'"'           Literal.String
'red>> '      Literal.String
'"'           Literal.String
'\n    '      Text
'mode:'       Generic.Subheading
'  '          Text
"'mono"       Name.Variable.Instance
'\n    \n    ' Text
'switch-mode:' Generic.Subheading
' '           Text
'['           Generic.Strong
'\n        '  Text
'mode:'       Generic.Subheading
' '           Text
'case'        Name.Builtin
' '           Text
'['           Generic.Strong
'\n            ' Text
'cnt'         Name.Variable
'/1'          Name.Attribute
' '           Text
'>'           Name.Variable
' '           Text
'0'           Literal.Number
' '           Text
'['           Generic.Strong
"'block"      Name.Variable.Instance
']'           Generic.Strong
'\n            ' Text
'cnt'         Name.Variable
'/2'          Name.Attribute
' '           Text
'>'           Name.Variable
' '           Text
'0'           Literal.Number
' '           Text
'['           Generic.Strong
"'string"     Name.Variable.Instance
']'           Generic.Strong
'\n            ' Text
"'else"       Name.Variable.Instance
'     '       Text
'['           Generic.Strong
'\n                ' Text
'prompt:'     Generic.Subheading
' '           Text
'red-prompt'  Name.Variable
'\n                ' Text
'do'          Name.Exception
' '           Text
'eval'        Name.Variable
'\n                ' Text
"'mono"       Name.Variable.Instance
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n        '  Text
'prompt:'     Generic.Subheading
' '           Text
'switch'      Name.Builtin
' '           Text
'mode'        Name.Variable
' '           Text
'['           Generic.Strong
'\n            ' Text
'block'       Name.Variable
'  '          Text
'['           Generic.Strong
'"'           Literal.String
'['           Literal.String
'^-'          Literal.String.Escape
'"'           Literal.String
']'           Generic.Strong
'\n            ' Text
'string'      Name.Variable
' '           Text
'['           Generic.Strong
'"'           Literal.String
'{'           Literal.String
'^-'          Literal.String.Escape
'"'           Literal.String
']'           Generic.Strong
'\n            ' Text
'mono'        Name.Variable
'   '         Text
'['           Generic.Strong
'red-prompt'  Name.Variable
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n    '      Text
']'           Generic.Strong
'\n    \n    ' Text
'eval:'       Generic.Subheading
' '           Text
'['           Generic.Strong
'\n        '  Text
'code:'       Generic.Subheading
' '           Text
'load'        Name.Exception
'/all'        Name.Attribute
' '           Text
'buffer'      Name.Variable
'\n        \n        ' Text
'unless'      Name.Builtin
' '           Text
'tail?'       Name.Function
' '           Text
'code'        Name.Variable
' '           Text
'['           Generic.Strong
'\n            ' Text
'set'         Name.Builtin
'/any'        Name.Attribute
' '           Text
"'result"     Name.Variable.Instance
' '           Text
'do'          Name.Exception
' '           Text
'code'        Name.Variable
'\n            \n            ' Text
'unless'      Name.Builtin
' '           Text
'unset?'      Keyword
' '           Text
':result'     Generic.Subheading
' '           Text
'['           Generic.Strong
'\n                ' Text
'if'          Name.Builtin
' '           Text
'67'          Literal.Number
' '           Text
'='           Operator
' '           Text
'length?'     Name.Function
' '           Text
'result:'     Generic.Subheading
' '           Text
'mold'        Name.Function
'/part'       Name.Attribute
' '           Text
':result'     Generic.Subheading
' '           Text
'67'          Literal.Number
' '           Text
'['           Generic.Strong
'  '          Text
';-- optimized for width = 72\n' Comment

'                    ' Text
'clear'       Name.Function
' '           Text
'back'        Name.Function
' '           Text
'tail'        Name.Function
' '           Text
'result'      Name.Variable
'\n                    ' Text
'append'      Name.Function
' '           Text
'result'      Name.Variable
' '           Text
'"'           Literal.String
'...'         Literal.String
'"'           Literal.String
'\n                ' Text
']'           Generic.Strong
'\n                ' Text
'print'       Name.Builtin
' '           Text
'['           Generic.Strong
'"'           Literal.String
'=='          Literal.String
'"'           Literal.String
' '           Text
'result'      Name.Variable
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n        '  Text
'clear'       Name.Function
' '           Text
'buffer'      Name.Variable
'\n    '      Text
']'           Generic.Strong
'\n\n    '    Text
'while'       Name.Builtin
' '           Text
'['           Generic.Strong
'true'        Name.Builtin.Pseudo
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'unless'      Name.Builtin
' '           Text
'tail?'       Name.Function
' '           Text
'line:'       Generic.Subheading
' '           Text
'input'       Name.Variable
' '           Text
'prompt'      Name.Variable
' '           Text
'['           Generic.Strong
'\n            ' Text
'append'      Name.Function
' '           Text
'buffer'      Name.Variable
' '           Text
'line'        Name.Variable
'\n            ' Text
'cnt:'        Generic.Subheading
' '           Text
'count-delimiters' Name.Variable
' '           Text
'buffer'      Name.Variable
'\n\n            ' Text
'either'      Name.Builtin
' '           Text
'Windows?'    Name.Variable
' '           Text
'['           Generic.Strong
'\n                ' Text
'remove'      Name.Function
' '           Text
'skip'        Name.Function
' '           Text
'tail'        Name.Function
' '           Text
'buffer'      Name.Variable
' '           Text
'-2'          Literal.Number
'          '  Text
';-- clear extra CR (Windows)\n' Comment

'            ' Text
']'           Generic.Strong
'['           Generic.Strong
'\n                ' Text
'append'      Name.Function
' '           Text
'buffer'      Name.Variable
' '           Text
'lf'          Name.Builtin.Pseudo
'                    ' Text
';-- Unix\n'  Comment

'            ' Text
']'           Generic.Strong
'\n            \n            ' Text
'switch'      Name.Builtin
' '           Text
'mode'        Name.Variable
' '           Text
'['           Generic.Strong
'\n                ' Text
'block'       Name.Variable
'  '          Text
'['           Generic.Strong
'if'          Name.Builtin
' '           Text
'cnt'         Name.Variable
'/1'          Name.Attribute
' '           Text
'<='          Operator
' '           Text
'0'           Literal.Number
' '           Text
'['           Generic.Strong
'do'          Name.Exception
' '           Text
'switch-mode' Name.Variable
']'           Generic.Strong
']'           Generic.Strong
'\n                ' Text
'string'      Name.Variable
' '           Text
'['           Generic.Strong
'if'          Name.Builtin
' '           Text
'cnt'         Name.Variable
'/2'          Name.Attribute
' '           Text
'<='          Operator
' '           Text
'0'           Literal.Number
' '           Text
'['           Generic.Strong
'do'          Name.Exception
' '           Text
'switch-mode' Name.Variable
']'           Generic.Strong
']'           Generic.Strong
'\n                ' Text
'mono'        Name.Variable
'   '         Text
'['           Generic.Strong
'do'          Name.Exception
' '           Text
'either'      Name.Builtin
' '           Text
'any'         Name.Builtin
' '           Text
'['           Generic.Strong
'cnt'         Name.Variable
'/1'          Name.Attribute
' '           Text
'>'           Name.Variable
' '           Text
'0'           Literal.Number
' '           Text
'cnt'         Name.Variable
'/2'          Name.Attribute
' '           Text
'>'           Name.Variable
' '           Text
'0'           Literal.Number
']'           Generic.Strong
'['           Generic.Strong
'switch-mode' Name.Variable
']'           Generic.Strong
'['           Generic.Strong
'eval'        Name.Variable
']'           Generic.Strong
']'           Generic.Strong
'\n            ' Text
']'           Generic.Strong
'\n        '  Text
']'           Generic.Strong
'\n    '      Text
']'           Generic.Strong
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'q:'          Generic.Subheading
' '           Text
':quit'       Generic.Subheading
'\n\n'        Text

'if'          Name.Builtin
' '           Text
'script:'     Generic.Subheading
' '           Text
'read-argument' Name.Variable
' '           Text
'['           Generic.Strong
'\n    '      Text
'script:'     Generic.Subheading
' '           Text
'load'        Name.Exception
' '           Text
'script'      Name.Variable
'\n    '      Text
'either'      Name.Builtin
' '           Text
'any'         Name.Builtin
' '           Text
'['           Generic.Strong
'\n        '  Text
'script'      Name.Variable
'/1'          Name.Attribute
' '           Text
'<>'          Operator
' '           Text
"'Red"        Name.Variable.Instance
'\n        '  Text
'not'         Name.Builtin
' '           Text
'block?'      Keyword
' '           Text
'script'      Name.Variable
'/2'          Name.Attribute
' \n    '     Text
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'print'       Name.Builtin
' '           Text
'"'           Literal.String
'*** Error: not a Red program!' Literal.String
'"'           Literal.String
'\n    '      Text
']'           Generic.Strong
'['           Generic.Strong
'\n        '  Text
'do'          Name.Exception
' '           Text
'skip'        Name.Function
' '           Text
'script'      Name.Variable
' '           Text
'2'           Literal.Number
'\n    '      Text
']'           Generic.Strong
'\n    '      Text
'quit'        Name.Exception
'\n'          Text

']'           Generic.Strong
'\n\n'        Text

'init-console' Name.Variable
' '           Text
'"'           Literal.String
'Red Console' Literal.String
'"'           Literal.String
'\n\n'        Text

'print'       Name.Builtin
' '           Text
'{'           Literal.String
'\n-=== Red Console alpha version ===-\n' Literal.String

'('           Literal.String
'only ASCII input supported' Literal.String
')'           Literal.String
'\n'          Literal.String

'}'           Literal.String
'\n\n'        Text

'do-console'  Name.Variable
'\n'          Text
