abc.tcl.native

[ [ ( KeywordTok , "package" )
  , ( NormalTok , " " )
  , ( OtherTok , "require" )
  , ( NormalTok , " Tcl " )
  , ( FloatTok , "8.6" )
  ]
, []
, [ ( KeywordTok , "proc" )
  , ( NormalTok , " abc " )
  , ( KeywordTok , "{" )
  , ( NormalTok , "word " )
  , ( KeywordTok , "{" )
  , ( NormalTok , "blocks " )
  , ( KeywordTok , "{" )
  , ( NormalTok
    , "BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM"
    )
  , ( KeywordTok , "}}}" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  ]
, [ ( NormalTok , "    " )
  , ( KeywordTok , "set" )
  , ( NormalTok , " abc " )
  , ( KeywordTok , "{{" )
  , ( NormalTok , "letters blocks abc" )
  , ( KeywordTok , "}" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  ]
, [ ( NormalTok , "        " )
  , ( KeywordTok , "set" )
  , ( NormalTok , " rest " )
  , ( KeywordTok , "[lassign" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$letters" )
  , ( NormalTok , " ch" )
  , ( KeywordTok , "]" )
  ]
, [ ( NormalTok , "        " )
  , ( KeywordTok , "set" )
  , ( NormalTok , " i " )
  , ( DecValTok , "0" )
  ]
, [ ( NormalTok , "        " )
  , ( KeywordTok , "foreach" )
  , ( NormalTok , " blk " )
  , ( DataTypeTok , "$blocks" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  ]
, [ ( NormalTok , "            " )
  , ( KeywordTok , "if" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  , ( DataTypeTok , "$ch" )
  , ( NormalTok , " in " )
  , ( DataTypeTok , "$blk" )
  , ( NormalTok , " && (!" )
  , ( KeywordTok , "[llength" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$rest" )
  , ( KeywordTok , "]" )
  ]
, [ ( NormalTok , "                    || " )
  , ( KeywordTok , "[" )
  , ( NormalTok , "apply " )
  , ( DataTypeTok , "$abc" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$rest" )
  , ( NormalTok , " " )
  , ( KeywordTok , "[lreplace" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$blocks" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$i" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$i" )
  , ( KeywordTok , "]" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$abc" )
  , ( KeywordTok , "]" )
  , ( NormalTok , ")" )
  , ( KeywordTok , "}" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  ]
, [ ( NormalTok , "                " )
  , ( KeywordTok , "return" )
  , ( NormalTok , " true" )
  ]
, [ ( NormalTok , "            " ) , ( KeywordTok , "}" ) ]
, [ ( NormalTok , "            " )
  , ( KeywordTok , "incr" )
  , ( NormalTok , " i" )
  ]
, [ ( NormalTok , "        " ) , ( KeywordTok , "}" ) ]
, [ ( NormalTok , "        " )
  , ( KeywordTok , "return" )
  , ( NormalTok , " false" )
  ]
, [ ( NormalTok , "    " ) , ( KeywordTok , "}}" ) ]
, [ ( NormalTok , "    " )
  , ( KeywordTok , "return" )
  , ( NormalTok , " " )
  , ( KeywordTok , "[" )
  , ( NormalTok , "apply " )
  , ( DataTypeTok , "$abc" )
  , ( NormalTok , " " )
  , ( KeywordTok , "[split" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$word" )
  , ( NormalTok , " " )
  , ( StringTok , "\"\"" )
  , ( KeywordTok , "]" )
  , ( NormalTok , " " )
  , ( KeywordTok , "[" )
  , ( NormalTok , "lmap b " )
  , ( DataTypeTok , "$blocks" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{split" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$b" )
  , ( NormalTok , " " )
  , ( StringTok , "\"\"" )
  , ( KeywordTok , "}]" )
  , ( NormalTok , " " )
  , ( DataTypeTok , "$abc" )
  , ( KeywordTok , "]" )
  ]
, [ ( KeywordTok , "}" ) ]
, []
, [ ( KeywordTok , "foreach" )
  , ( NormalTok , " word " )
  , ( KeywordTok , "{" )
  , ( StringTok , "\"\"" )
  , ( NormalTok , " A BARK BOOK TREAT COMMON SQUAD CONFUSE" )
  , ( KeywordTok , "}" )
  , ( NormalTok , " " )
  , ( KeywordTok , "{" )
  ]
, [ ( NormalTok , "    " )
  , ( KeywordTok , "puts" )
  , ( NormalTok , " " )
  , ( KeywordTok , "[format" )
  , ( NormalTok , " " )
  , ( StringTok , "\"Can we spell %9s? %s\"" )
  , ( NormalTok , " '" )
  , ( DataTypeTok , "$word" )
  , ( NormalTok , "' " )
  , ( KeywordTok , "[" )
  , ( NormalTok , "abc " )
  , ( DataTypeTok , "$word" )
  , ( KeywordTok , "]]" )
  ]
, [ ( KeywordTok , "}" ) ]
]