piet.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    299024,       7326]
NotebookOptionsPosition[    271068,       6570]
NotebookOutlinePosition[    271408,       6585]
CellTagsIndexPosition[    271365,       6582]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Implementation", "Section",
 CellChangeTimes->{{3.5456686974743967`*^9, 3.545668700730764*^9}, {
  3.545923611702798*^9, 3.545923615227728*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outsideImageQ", "[", 
   RowBox[{"imgData_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "imgDimensions", ",", "imgDimY", ",", "imgDimX", ",", "imgDimZ"}], "}"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"imgDimX", ",", "imgDimY", ",", "imgDimZ"}], "}"}], "=", 
      RowBox[{"Dimensions", "[", "imgData", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", ">", "imgDimY"}], "||", 
      RowBox[{"x", "<", "1"}], "||", 
      RowBox[{"x", ">", "imgDimX"}], "||", 
      RowBox[{"y", "<", "1"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\

 CellChangeTimes->{{3.545671949255969*^9, 3.545672023082445*^9}, {
  3.54588420450525*^9, 3.5458842486388617`*^9}, {3.545884436124446*^9, 
  3.545884445526863*^9}, {3.545891994311545*^9, 3.545891996678636*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findColorBlock", "[", 
   RowBox[{"imgData_", ",", "searchColor_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], ",", "pixelsTried_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"blockColor", ",", 
      RowBox[{"newPixelsFound", "=", 
       RowBox[{"{", "}"}]}], ",", "pixelsFoundAround", ",", "imgDimensions", 
      ",", "newPixelsTried", ",", 
      RowBox[{"pixelsFound", "=", 
       RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"$RecursionLimit", "=", "204800"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"If", " ", "we", " ", "already", " ", "tried", " ", "this"}], 
        ",", " ", 
        RowBox[{"nothing", " ", "new", " ", "is", " ", "found"}]}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{"pixelsTried", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", 
         RowBox[{"Return", "[", 
          RowBox[{"{", 
           RowBox[{"pixelsTried", ",", 
            RowBox[{"{", "}"}]}], "}"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"newPixelsTried", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"pixelsTried", ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"If", " ", "outside", " ", "image"}], ",", " ", 
         RowBox[{"nothing", " ", "new", " ", "is", " ", "found"}]}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"outsideImageQ", "[", 
          RowBox[{"imgData", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", 
         RowBox[{"Return", "[", 
          RowBox[{"{", 
           RowBox[{"newPixelsTried", ",", 
            RowBox[{"{", "}"}]}], "}"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"blockColor", "=", 
        RowBox[{"imgData", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"blockColor", "===", "searchColor"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"pixelsFound", "=", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"x", ",", "y"}], "}"}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Do", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"newPixelsTried", ",", "newPixelsFound"}], "}"}], "=", 
              
              RowBox[{"findColorBlock", "[", 
               RowBox[{"imgData", ",", "searchColor", ",", 
                RowBox[{"movePosition", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"x", ",", "y"}], "}"}], ",", "dir"}], "]"}], ",", 
                "newPixelsTried"}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"pixelsFound", "=", 
              RowBox[{"Join", "[", 
               RowBox[{"pixelsFound", ",", "newPixelsFound"}], "]"}]}], ";"}],
             "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"dir", ",", 
              RowBox[{"{", 
               RowBox[{"right", ",", "up", ",", "left", ",", "down"}], 
               "}"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"newPixelsTried", ",", "pixelsFound"}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\

 CellChangeTimes->{{3.545665337681005*^9, 3.545665355182444*^9}, {
   3.545665396909873*^9, 3.545665479912199*^9}, {3.545665563360487*^9, 
   3.545665565768409*^9}, {3.545665674508224*^9, 3.545665736803659*^9}, {
   3.5456657787272253`*^9, 3.545665828555936*^9}, {3.545665867231228*^9, 
   3.545666196984213*^9}, {3.5456662303996973`*^9, 3.545666321886322*^9}, {
   3.54566637449517*^9, 3.545666408727599*^9}, {3.5456664525711517`*^9, 
   3.5456664658407507`*^9}, {3.545666881206455*^9, 3.5456670857731533`*^9}, 
   3.5456671818835773`*^9, 3.545667228353856*^9, {3.545667258867696*^9, 
   3.545667266703211*^9}, {3.545667337106448*^9, 3.545667428651517*^9}, {
   3.545667487917212*^9, 3.545667727523387*^9}, {3.5456677854596567`*^9, 
   3.5456677904278603`*^9}, {3.545667834797261*^9, 3.545667835454768*^9}, {
   3.545670713399159*^9, 3.5456707148399*^9}, {3.545670835518733*^9, 
   3.545670838217759*^9}, {3.545670951176755*^9, 3.545670969859707*^9}, {
   3.545672006132065*^9, 3.5456720518276587`*^9}, {3.545884271715917*^9, 
   3.545884273397151*^9}, {3.5458953542736473`*^9, 3.545895357555152*^9}, {
   3.545911954051551*^9, 3.545911954264861*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"movePosition", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], ",", "dir_"}], "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "dir", ",", "\[IndentingNewLine]", "right", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"y", "+", "1"}]}], "}"}], "\[IndentingNewLine]", ",", "left", 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"y", "-", "1"}]}], "}"}], "\[IndentingNewLine]", ",", "up", ",",
     "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "-", "1"}], ",", "y"}], "}"}], "\[IndentingNewLine]", ",", 
    "down", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "+", "1"}], ",", "y"}], "}"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.545670884362278*^9, 3.545670940572714*^9}, {
  3.545671012412838*^9, 3.545671028204723*^9}, {3.545841209704137*^9, 
  3.545841220414464*^9}, {3.54588429338622*^9, 3.5458843091410913`*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"right", ",", "left", ",", "up", ",", "down"}], "]"}]], "Input",
 CellChangeTimes->{{3.545668898104506*^9, 3.545668909471669*^9}, {
  3.545884971166493*^9, 3.5458849822090683`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getRightMost", "[", "l_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "rightMostValue", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"rightMostValue", "=", 
      RowBox[{"Max", "[", 
       RowBox[{"Last", "/@", "l"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Cases", "[", 
      RowBox[{"l", ",", 
       RowBox[{"{", 
        RowBox[{"_", ",", "rightMostValue"}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.545894037270534*^9, 3.5458940464004173`*^9}, {
  3.545894242301179*^9, 3.545894265168836*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getLeftMost", "[", "l_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "leftMostValue", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"leftMostValue", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"Last", "/@", "l"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Cases", "[", 
      RowBox[{"l", ",", 
       RowBox[{"{", 
        RowBox[{"_", ",", "leftMostValue"}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.545894037270534*^9, 3.5458940464004173`*^9}, {
  3.545894242301179*^9, 3.545894265168836*^9}, {3.5458942967393007`*^9, 
  3.54589432032073*^9}, {3.545894449242485*^9, 3.545894451241543*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getUpMost", "[", "l_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "upMostValue", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"upMostValue", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"First", "/@", "l"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Cases", "[", 
      RowBox[{"l", ",", 
       RowBox[{"{", 
        RowBox[{"upMostValue", ",", "_"}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.545894037270534*^9, 3.5458940464004173`*^9}, {
  3.545894242301179*^9, 3.545894265168836*^9}, {3.5458942967393007`*^9, 
  3.545894347161755*^9}, {3.545894454289259*^9, 3.545894458105493*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getLowerMost", "[", "l_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "lowerMostValue", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"lowerMostValue", "=", 
      RowBox[{"Max", "[", 
       RowBox[{"First", "/@", "l"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Cases", "[", 
      RowBox[{"l", ",", 
       RowBox[{"{", 
        RowBox[{"lowerMostValue", ",", "_"}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.545894037270534*^9, 3.5458940464004173`*^9}, {
  3.545894242301179*^9, 3.545894265168836*^9}, {3.5458942967393007`*^9, 
  3.545894371379484*^9}, {3.545894455759343*^9, 3.545894461241809*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "findNextCodel", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "findNextCodel", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{"\"\<Debug\>\"", "\[Rule]", "False"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"findNextCodel", "[", 
   RowBox[{"imgData_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], ",", "dpin_", ",", "ccin_", ",", 
    RowBox[{"lastToggle_:", "\"\<dp\>\""}], ",", 
    RowBox[{"ctr_:", "0"}], ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "currentBlock", ",", "color", ",", "leavingCodel", ",", "orderFn", ",", 
      "targetCodel", ",", "dp", ",", "cc", ",", "val", ",", "debug", ",", 
      RowBox[{"whiteQ", "=", "False"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"debug", "=", 
      RowBox[{"OptionValue", "[", "\"\<Debug\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dp", "=", "dpin"}], ";", "\[IndentingNewLine]", 
     RowBox[{"cc", "=", "ccin"}], ";", "\[IndentingNewLine]", 
     RowBox[{"color", "=", 
      RowBox[{"imgData", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"currentBlock", "=", 
      RowBox[{
       RowBox[{"findColorBlock", "[", 
        RowBox[{"imgData", ",", "color", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"val", "=", 
      RowBox[{"Length", "[", "currentBlock", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"leavingCodel", "=", 
      RowBox[{
       RowBox[{"Switch", "[", 
        RowBox[{
        "dp", ",", "\[IndentingNewLine]", "right", ",", "\[IndentingNewLine]", 
         RowBox[{"Switch", "[", 
          RowBox[{
          "cc", ",", "\[IndentingNewLine]", "left", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "right", " ", "uppermost", " ", "edge"}], 
            " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getUpMost", "[", 
            RowBox[{"getRightMost", "[", "currentBlock", "]"}], "]"}], 
           "\[IndentingNewLine]", ",", "right", ",", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "right", " ", "lowermost", " ", "edge"}], 
            " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getLowerMost", "[", 
            RowBox[{"getRightMost", "[", "currentBlock", "]"}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "left", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"Switch", "[", 
          RowBox[{
          "cc", ",", "\[IndentingNewLine]", "left", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "left", " ", "lowermost", " ", "edge"}], " ",
             "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getLowerMost", "[", 
            RowBox[{"getLeftMost", "[", "currentBlock", "]"}], "]"}], 
           "\[IndentingNewLine]", ",", "right", ",", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "left", " ", "uppermost", " ", "edge"}], " ",
             "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getUpMost", "[", 
            RowBox[{"getLeftMost", "[", "currentBlock", "]"}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "up", ",",
          "\[IndentingNewLine]", 
         RowBox[{"Switch", "[", 
          RowBox[{
          "cc", ",", "\[IndentingNewLine]", "left", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "upper", " ", "leftmost", " ", "edge"}], " ",
             "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getLeftMost", "[", 
            RowBox[{"getUpMost", "[", "currentBlock", "]"}], "]"}], 
           "\[IndentingNewLine]", ",", "right", ",", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "upper", " ", "rightmost", " ", "edge"}], 
            " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getRightMost", "[", 
            RowBox[{"getUpMost", "[", "currentBlock", "]"}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "down", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"Switch", "[", 
          RowBox[{
          "cc", ",", "\[IndentingNewLine]", "left", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "lower", " ", "rightmost", " ", "edge"}], 
            " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getRightMost", "[", 
            RowBox[{"getLowerMost", "[", "currentBlock", "]"}], "]"}], 
           "\[IndentingNewLine]", ",", "right", ",", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"find", " ", "lower", " ", "leftmost", " ", "edge"}], " ",
             "*)"}], "\[IndentingNewLine]", 
           RowBox[{"getLeftMost", "[", 
            RowBox[{"getLowerMost", "[", "currentBlock", "]"}], "]"}]}], 
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"targetCodel", "=", 
      RowBox[{"movePosition", "[", 
       RowBox[{"leavingCodel", ",", "dp"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Quiet", "[", 
         RowBox[{"imgData", "[", 
          RowBox[{"[", 
           RowBox[{"Sequence", "@@", "targetCodel"}], "]"}], "]"}], "]"}], "==", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"targetCodel", ",", "dp", ",", "cc"}], "}"}], "=", 
         RowBox[{"solveWhite", "[", 
          RowBox[{"imgData", ",", "targetCodel", ",", "dp", ",", "cc", ",", 
           RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"whiteQ", "=", "True"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"outsideImageQ", "[", 
         RowBox[{"imgData", ",", "targetCodel"}], "]"}], "||", 
        RowBox[{
         RowBox[{"imgData", "[", 
          RowBox[{"[", 
           RowBox[{"Sequence", "@@", "targetCodel"}], "]"}], "]"}], "==", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "||", 
        RowBox[{"MemberQ", "[", 
         RowBox[{"currentBlock", ",", "targetCodel"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"black", " ", "cell"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{"debug", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<restriction: \>\"", ",", "targetCodel"}], "]"}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"ctr", ">", "8"}], ",", 
          RowBox[{"Return", "[", 
           RowBox[{"{", 
            RowBox[{
            "terminated", ",", "val", ",", "dp", ",", "cc", ",", "False"}], 
            "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"lastToggle", "===", "\"\<dp\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"cc", "=", 
            RowBox[{"switchCC", "[", "cc", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"debug", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<toggling cc to:\>\"", ",", "cc"}], "}"}], "]"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "targetCodel", ",", "val", ",", "dp", ",", "cc", ",", "whiteQ"}],
              "}"}], "=", 
            RowBox[{"findNextCodel", "[", 
             RowBox[{"imgData", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}], ",", "dp", ",", "cc", ",", 
              "\"\<cc\>\"", ",", 
              RowBox[{"ctr", "+", "1"}]}], "]"}]}], ";"}], 
          "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"dp", "=", 
            RowBox[{"rotateDP", "[", "dp", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"debug", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<toggling dp to:\>\"", ",", "dp"}], "}"}], "]"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "targetCodel", ",", "val", ",", "dp", ",", "cc", ",", "whiteQ"}],
              "}"}], "=", 
            RowBox[{"findNextCodel", "[", 
             RowBox[{"imgData", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}], ",", "dp", ",", "cc", ",", 
              "\"\<dp\>\"", ",", 
              RowBox[{"ctr", "+", "1"}]}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "targetCodel", ",", "val", ",", "dp", ",", "cc", ",", "whiteQ"}], 
      "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.5456687316157923`*^9, 3.5456689594428473`*^9}, {
   3.545668996775618*^9, 3.5456691472719717`*^9}, {3.5456692159144173`*^9, 
   3.545669297158597*^9}, {3.545669329328342*^9, 3.545669460761279*^9}, {
   3.545669501013089*^9, 3.545669512043922*^9}, {3.545669731252317*^9, 
   3.545669898798582*^9}, {3.545669929631518*^9, 3.5456701855054827`*^9}, {
   3.545670283670364*^9, 3.545670291075015*^9}, {3.545670327952064*^9, 
   3.5456703426436577`*^9}, {3.545670379207449*^9, 3.5456703985770483`*^9}, {
   3.545670589952793*^9, 3.545670668655046*^9}, {3.545670874727882*^9, 
   3.545670874953444*^9}, {3.545671069400257*^9, 3.545671112432426*^9}, {
   3.5456711624805107`*^9, 3.545671492693462*^9}, {3.545671571537807*^9, 
   3.5456715869085484`*^9}, {3.545671701057557*^9, 3.545671728287857*^9}, {
   3.545671788730538*^9, 3.545671942722365*^9}, {3.5456721651496553`*^9, 
   3.545672175859145*^9}, {3.545672249224332*^9, 3.545672266445071*^9}, {
   3.545672301820558*^9, 3.545672302534494*^9}, {3.545672348917439*^9, 
   3.5456723491330338`*^9}, {3.5456723988153763`*^9, 3.545672420152964*^9}, {
   3.5456724753452663`*^9, 3.545672475484157*^9}, {3.545672541684202*^9, 
   3.545672542592993*^9}, {3.545672665337717*^9, 3.545672675933914*^9}, {
   3.545838024678946*^9, 3.54583803304099*^9}, {3.545838072205811*^9, 
   3.5458380735259037`*^9}, {3.5458382649648848`*^9, 
   3.5458382669245443`*^9}, {3.5458383966170607`*^9, 3.545838397335787*^9}, {
   3.545838438770419*^9, 3.5458384459400387`*^9}, {3.545838506407552*^9, 
   3.545838576604534*^9}, {3.5458386295803833`*^9, 3.545838633739415*^9}, {
   3.545838680211954*^9, 3.545838680875325*^9}, {3.54583877935988*^9, 
   3.54583878090952*^9}, {3.545884327494381*^9, 3.545884329676981*^9}, 
   3.545884379553412*^9, {3.545884519016711*^9, 3.545884543881619*^9}, {
   3.545884586088032*^9, 3.5458846520632153`*^9}, {3.545884755124601*^9, 
   3.545884772840164*^9}, {3.545884834816486*^9, 3.5458848888547897`*^9}, {
   3.545885058604444*^9, 3.545885069945183*^9}, {3.545885721050305*^9, 
   3.545885764856078*^9}, {3.545886071818433*^9, 3.545886126377055*^9}, {
   3.5458861716274776`*^9, 3.545886184280097*^9}, {3.545886483026175*^9, 
   3.545886492608988*^9}, {3.545886873848975*^9, 3.545886902956251*^9}, {
   3.54588740289205*^9, 3.5458874051075583`*^9}, {3.545894521161646*^9, 
   3.5458946852007713`*^9}, {3.545894929986101*^9, 3.545894944179574*^9}, {
   3.545895196590763*^9, 3.545895285749662*^9}, {3.5459083978850403`*^9, 
   3.545908417985449*^9}, {3.54590938831811*^9, 3.545909415678232*^9}, {
   3.545910123837554*^9, 3.5459101661368427`*^9}, {3.545910229034629*^9, 
   3.545910296487015*^9}, {3.545910428616746*^9, 3.545910429438553*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"invertDirection", "[", "up", "]"}], ":=", 
  "down"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"invertDirection", "[", "down", "]"}], ":=", 
  "up"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"invertDirection", "[", "right", "]"}], ":=", 
  "left"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"invertDirection", "[", "left", "]"}], ":=", "right"}]}], "Input",
 CellChangeTimes->{{3.54591008295183*^9, 3.545910106617125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"solveWhite", "[", 
    RowBox[{"imgData_", ",", "whiteStart_", ",", "indp_", ",", "incc_", ",", 
     RowBox[{"triedCodels_:", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"targetCodel", ",", "cc", ",", "dp"}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"cc", "=", "incc"}], ";", "\[IndentingNewLine]", 
      RowBox[{"dp", "=", "indp"}], ";", "\[IndentingNewLine]", 
      RowBox[{"targetCodel", "=", "whiteStart"}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Quiet", "[", 
          RowBox[{"imgData", "[", 
           RowBox[{"[", 
            RowBox[{"Sequence", "@@", "targetCodel"}], "]"}], "]"}], "]"}], "==", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"white", " ", "cell"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"targetCodel", "=", 
          RowBox[{"movePosition", "[", 
           RowBox[{"targetCodel", ",", "dp"}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"outsideImageQ", "[", 
          RowBox[{"imgData", ",", "targetCodel"}], "]"}], "||", 
         RowBox[{
          RowBox[{"imgData", "[", 
           RowBox[{"[", 
            RowBox[{"Sequence", "@@", "targetCodel"}], "]"}], "]"}], "==", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "restriction", " ", "*)"}], "\[IndentingNewLine]", 
        
        RowBox[{
         RowBox[{"targetCodel", "=", 
          RowBox[{"movePosition", "[", 
           RowBox[{"targetCodel", ",", 
            RowBox[{"invertDirection", "[", "dp", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"cc", "=", 
          RowBox[{"switchCC", "[", "cc", "]"}]}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"dp", "=", 
          RowBox[{"rotateDP", "[", "dp", "]"}]}], ";", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"{", 
           RowBox[{"targetCodel", ",", "dp", ",", "cc"}], "}"}], "=", 
          RowBox[{"solveWhite", "[", 
           RowBox[{"imgData", ",", "targetCodel", ",", "dp", ",", "cc", ",", 
            RowBox[{"Append", "[", 
             RowBox[{"triedCodels", ",", "targetCodel"}], "]"}]}], "]"}]}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"triedCodels", ",", "targetCodel"}], "]"}], ",", 
        RowBox[{"targetCodel", "=", "terminated"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"targetCodel", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.545909419763348*^9, 3.54590961073948*^9}, {
  3.5459096635178823`*^9, 3.545909682273525*^9}, {3.545909724286655*^9, 
  3.5459099797397623`*^9}, {3.545910013709114*^9, 3.545910074225041*^9}, {
  3.545910524301752*^9, 3.5459105380567513`*^9}, {3.545910598794361*^9, 
  3.545910610755712*^9}, {3.5459106416554203`*^9, 3.545910646948977*^9}, {
  3.5459106807302217`*^9, 3.5459106994862013`*^9}, {3.545911730667205*^9, 
  3.5459117458929768`*^9}}],

Cell[CellGroupData[{

Cell["More functions", "Subsection",
 CellChangeTimes->{{3.5459105881640377`*^9, 3.545910590474359*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"switchCC", "[", "cc_", "]"}], ":=", 
  RowBox[{"cc", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"left", "\[Rule]", "right"}], ",", 
     RowBox[{"right", "\[Rule]", "left"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"switchCC", "[", 
   RowBox[{"cc_", ",", "nr_"}], "]"}], ":=", 
  RowBox[{"Nest", "[", 
   RowBox[{"switchCC", ",", "cc", ",", "nr"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"switchCC", "[", 
   RowBox[{"cc_", ",", "0"}], "]"}], ":=", "cc"}]}], "Input",
 CellChangeTimes->{{3.5459083027044163`*^9, 3.545908385995202*^9}, {
  3.545911815063252*^9, 3.545911820598736*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rotateDP", "[", "dp_", "]"}], ":=", 
  RowBox[{"dp", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"left", "\[Rule]", "up"}], ",", 
     RowBox[{"up", "\[Rule]", "right"}], ",", 
     RowBox[{"right", "\[Rule]", "down"}], ",", 
     RowBox[{"down", "\[Rule]", "left"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotateDPReverse", "[", "dp_", "]"}], ":=", 
  RowBox[{"dp", "/.", 
   RowBox[{"(", 
    RowBox[{"Reverse", "/@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"left", "\[Rule]", "up"}], ",", 
       RowBox[{"up", "\[Rule]", "right"}], ",", 
       RowBox[{"right", "\[Rule]", "down"}], ",", 
       RowBox[{"down", "\[Rule]", "left"}]}], "}"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotateDP", "[", 
   RowBox[{"dp_", ",", 
    RowBox[{"nr_", "?", "Positive"}]}], "]"}], ":=", 
  RowBox[{"Nest", "[", 
   RowBox[{"rotateDP", ",", "dp", ",", "nr"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotateDP", "[", 
   RowBox[{"dp_", ",", 
    RowBox[{"nr_", "?", "Negative"}]}], "]"}], ":=", 
  RowBox[{"Nest", "[", 
   RowBox[{"rotateDPReverse", ",", "dp", ",", "nr"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotateDP", "[", 
   RowBox[{"dp_", ",", "0"}], "]"}], ":=", "dp"}]}], "Input",
 CellChangeTimes->{{3.545908421591346*^9, 3.5459084531329603`*^9}, {
  3.5459085824562893`*^9, 3.545908583720326*^9}, {3.545908617928362*^9, 
  3.545908699756064*^9}, {3.5459118020546427`*^9, 3.5459118094777603`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rgbcolors", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{"#", ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "1.`", ",", "0.7529411764705882`", ",", "0.7529411764705882`"}], 
           "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"1.`", ",", "1.`", ",", "0.7529411764705882`"}], "]"}], 
          ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "0.7529411764705882`", ",", "1.`", ",", "0.7529411764705882`"}], 
           "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.7529411764705882`", ",", "1.`", ",", "1.`"}], "]"}], 
          ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "0.7529411764705882`", ",", "0.7529411764705882`", ",", "1.`"}], 
           "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"1.`", ",", "0.7529411764705882`", ",", "1.`"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1.`", ",", "0.`", ",", "0.`"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"1.`", ",", "1.`", ",", "0.`"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.`", ",", "1.`", ",", "0.`"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.`", ",", "1.`", ",", "1.`"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.`", ",", "0.`", ",", "1.`"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"1.`", ",", "0.`", ",", "1.`"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.7529411764705882`", ",", "0.`", ",", "0.`"}], "]"}], 
          ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "0.7529411764705882`", ",", "0.7529411764705882`", ",", "0.`"}], 
           "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.`", ",", "0.7529411764705882`", ",", "0.`"}], "]"}], 
          ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "0.`", ",", "0.7529411764705882`", ",", "0.7529411764705882`"}], 
           "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.`", ",", "0.`", ",", "0.7529411764705882`"}], "]"}], 
          ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
           "0.7529411764705882`", ",", "0.`", ",", "0.7529411764705882`"}], 
           "]"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", "3", "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545840885480624*^9, 3.5458408933144913`*^9}, {
   3.545887107508561*^9, 3.545887158139379*^9}, {3.545887974065489*^9, 
   3.545887976683576*^9}, 3.545909213227398*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getHue", "[", "color_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"rgbcolors", ",", 
         RowBox[{"RGBColor", "@@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Round", "[", 
              RowBox[{"#", ",", 
               SuperscriptBox["10", 
                RowBox[{"-", "6"}]]}], "]"}], "&"}], "/@", "color"}], 
           ")"}]}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"FreeQ", "[", 
         RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
       RowBox[{"Print", "[", "color", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.545839901957446*^9, 3.5458400269400587`*^9}, {
   3.5458400913154287`*^9, 3.545840104302115*^9}, {3.5458401578827953`*^9, 
   3.545840188904574*^9}, {3.545840249175565*^9, 3.545840255682413*^9}, {
   3.545840288874833*^9, 3.545840288913094*^9}, {3.5458871733522043`*^9, 
   3.54588718120378*^9}, {3.545887238755157*^9, 3.545887286627664*^9}, 
   3.545887444675956*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getLight", "[", "color_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Position", "[", 
    RowBox[{"rgbcolors", ",", 
     RowBox[{"RGBColor", "@@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Round", "[", 
          RowBox[{"#", ",", 
           SuperscriptBox["10", 
            RowBox[{"-", "6"}]]}], "]"}], "&"}], "/@", "color"}], ")"}]}]}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.545839901957446*^9, 3.5458400269400587`*^9}, {
   3.5458400913154287`*^9, 3.545840104302115*^9}, {3.5458401578827953`*^9, 
   3.545840188904574*^9}, {3.545840249175565*^9, 3.545840255682413*^9}, {
   3.545840288874833*^9, 3.545840288913094*^9}, {3.545840364859951*^9, 
   3.5458403720833178`*^9}, 3.545887190371646*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"0", ",", "0"}], "]"}], ":=", "None"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"0", ",", "1"}], "]"}], ":=", "push"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"0", ",", "2"}], "]"}], ":=", "pop"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"1", ",", "0"}], "]"}], ":=", "add"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"1", ",", "1"}], "]"}], ":=", "subtract"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"1", ",", "2"}], "]"}], ":=", "multiply"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"2", ",", "0"}], "]"}], ":=", "divide"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"2", ",", "1"}], "]"}], ":=", "mod"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"2", ",", "2"}], "]"}], ":=", "not"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"3", ",", "0"}], "]"}], ":=", "greater"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"3", ",", "1"}], "]"}], ":=", "pointer"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"3", ",", "2"}], "]"}], ":=", "switch"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"4", ",", "0"}], "]"}], ":=", "duplicate"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"4", ",", "1"}], "]"}], ":=", "roll"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"4", ",", "2"}], "]"}], ":=", "innumber"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"5", ",", "0"}], "]"}], ":=", "inchar"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"5", ",", "1"}], "]"}], ":=", "outnumber"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"commandTable", "[", 
    RowBox[{"5", ",", "2"}], "]"}], ":=", "outchar"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5458404267737083`*^9, 3.545840631762857*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"getCommand", "[", 
    RowBox[{"imgData_", ",", "leavingCodel_", ",", "terminated"}], "]"}], ":=",
    "terminated"}], ";"}]], "Input",
 CellChangeTimes->{{3.545886241143629*^9, 3.545886264249446*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getCommand", "[", 
   RowBox[{"imgData_", ",", "leavingCodel_", ",", "targetCodel_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "roundedData", ",", "leavingColor", ",", "targetColor", ",", 
      "hueLeaving", ",", "hueTarget", ",", "lightLeaving", ",", "lightTarget",
       ",", "dHue", ",", "dLight"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"leavingColor", "=", 
      RowBox[{"imgData", "[", 
       RowBox[{"[", 
        RowBox[{"Sequence", "@@", "leavingCodel"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"targetColor", "=", 
      RowBox[{"imgData", "[", 
       RowBox[{"[", 
        RowBox[{"Sequence", "@@", "targetCodel"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hueLeaving", "=", 
      RowBox[{"getHue", "[", "leavingColor", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hueTarget", "=", 
      RowBox[{"getHue", "[", "targetColor", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"lightLeaving", "=", 
      RowBox[{"getLight", "[", "leavingColor", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"lightTarget", "=", 
      RowBox[{"getLight", "[", "targetColor", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dHue", "=", 
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"hueTarget", "-", "hueLeaving"}], ",", "6"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dLight", "=", 
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"lightTarget", "-", "lightLeaving"}], ",", "3"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"commandTable", "[", 
      RowBox[{"dHue", ",", "dLight"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5458389002124157`*^9, 3.545838980778028*^9}, {
   3.545839748482532*^9, 3.545839765558303*^9}, {3.5458398154930162`*^9, 
   3.545839837825061*^9}, {3.5458403126883163`*^9, 3.545840407079615*^9}, {
   3.5458406442908373`*^9, 3.545840693875185*^9}, {3.5458407920383167`*^9, 
   3.5458408630138283`*^9}, 3.545840919795289*^9, {3.545885207343254*^9, 
   3.5458852432251453`*^9}, {3.545885490238207*^9, 3.545885527852356*^9}, {
   3.5458864733967447`*^9, 3.5458864740242977`*^9}, {3.545887809709549*^9, 
   3.5458878226949244`*^9}, {3.545887918741778*^9, 3.545887924535427*^9}, {
   3.5458880251467037`*^9, 3.545888027252489*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<FFC0C0\>\"", ",", "\"\<FFFFC0\>\"", ",", "\"\<C0FFC0\>\"", ",", 
      "\"\<C0FFFF\>\"", ",", "\"\<C0C0FF\>\"", ",", "\"\<FFC0FF\>\""}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<FF0000\>\"", ",", "\"\<FFFF00\>\"", ",", "\"\<00FF00\>\"", ",", 
      "\"\<00FFFF\>\"", ",", "\"\<0000FF\>\"", ",", "\"\<FF00FF\>\""}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C00000\>\"", ",", "\"\<C0C000\>\"", ",", "\"\<00C000\>\"", ",", 
      "\"\<00C0C0\>\"", ",", "\"\<0000C0\>\"", ",", "\"\<C000C0\>\""}], 
     "}"}]}], "}"}], ";"}]], "Input",
 CellChangeTimes->{{3.545839075201666*^9, 3.545839293599183*^9}, {
  3.545886509210268*^9, 3.545886514085506*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "::", "nip"}], "=", 
   "\"\<Function call `1` is not yet implemented.\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.5458955189435453`*^9, 3.545895547970825*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{
    "otherCommand_", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Message", "[", 
      RowBox[{
       RowBox[{"evaluateCommand", "::", "nip"}], ",", 
       RowBox[{"ToString", "[", "otherCommand", "]"}]}], "]"}], ";", 
     RowBox[{"Abort", "[", "]"}]}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, 
   3.545921193307374*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{
    "terminated", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], "]"}],
    ":=", 
   RowBox[{"Abort", "[", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921196893409*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"push", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Append", "[", 
      RowBox[{"stack", ",", "val"}], "]"}], ",", "dp", ",", "cc"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921197749703*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"pop", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921198301014*^9}, {3.545922090219783*^9, 
   3.5459221368474197`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"add", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "2"}], "]"}], "]"}], "+", 
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.54592121012288*^9}, {3.545922284281225*^9, 
   3.545922293048395*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"subtract", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "2"}], "]"}], "]"}], "-", 
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921219237631*^9}, {3.5459223051656027`*^9, 
   3.545922313975542*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"multiply", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "2"}], "]"}], "]"}], "*", 
          RowBox[{"stack", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.5459212207573557`*^9}, {3.545922320327252*^9, 
   3.545922327092423*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"divide", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{"Quotient", "[", 
          RowBox[{
           RowBox[{"stack", "[", 
            RowBox[{"[", 
             RowBox[{"-", "2"}], "]"}], "]"}], ",", 
           RowBox[{"stack", "[", 
            RowBox[{"[", 
             RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921221621076*^9}, {3.545922409296657*^9, 
   3.545922567189962*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"mod", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{"stack", "[", 
            RowBox[{"[", 
             RowBox[{"-", "2"}], "]"}], "]"}], ",", 
           RowBox[{"stack", "[", 
            RowBox[{"[", 
             RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.5459212225567923`*^9}, {3.545922575263009*^9, 
   3.54592258245443*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"not", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "2"}]}], "]"}], "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"stack", "[", 
             RowBox[{"[", 
              RowBox[{"-", "1"}], "]"}], "]"}], "\[Equal]", "0"}], ",", "1", 
           ",", "0"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921224908935*^9}, {3.545922588232294*^9, 
   3.5459225958922997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"greater", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"stack", "[", 
             RowBox[{"[", 
              RowBox[{"-", "2"}], "]"}], "]"}], ">", 
            RowBox[{"stack", "[", 
             RowBox[{"[", 
              RowBox[{"-", "1"}], "]"}], "]"}]}], ",", "1", ",", "0"}], 
          "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921226100123*^9}, {3.545922604126792*^9, 
   3.54592261248545*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"pointer", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"res", ",", "rotatenr", ",", "resdp"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rotatenr", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"resdp", "=", 
       RowBox[{"rotateDP", "[", 
        RowBox[{"dp", ",", "rotatenr"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"res", ",", "resdp"}], "}"}], ",", "Part"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"res", "=", "stack"}], ";", 
         RowBox[{"resdp", "=", "dp"}], ";"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "resdp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.5459212272274218`*^9}, {3.545922714001992*^9, 
   3.545922837676641*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"switch", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"res", ",", "rotatenr", ",", "rescc"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rotatenr", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"res", ",", "rotatenr"}], "}"}], ",", "Part"}], "]"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"rescc", "=", 
          RowBox[{"switchCC", "[", 
           RowBox[{"cc", ",", "rotatenr"}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"res", "=", "stack"}], ";", "\[IndentingNewLine]", 
         RowBox[{"rescc", "=", "cc"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "rescc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921228107951*^9}, {3.545922859709351*^9, 
   3.545922905870689*^9}, {3.545923311836835*^9, 3.545923343984144*^9}, 
   3.5459234494856157`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"duplicate", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}],
     "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"stack", ",", 
         RowBox[{"stack", "[", 
          RowBox[{"[", 
           RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"res", ",", "Part"}], "]"}]}], ",", 
        RowBox[{"res", "=", "stack"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921229027384*^9}, {3.545922917011355*^9, 
   3.54592292434223*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"roll", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "depth", ",", "nr", ",", "newStack", ",", "staticStack", ",", 
       "rollingStack", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"depth", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nr", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"newStack", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "3"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"staticStack", "=", 
       RowBox[{"newStack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{
           RowBox[{"-", "depth"}], "-", "1"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rollingStack", "=", 
       RowBox[{"newStack", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"-", "depth"}], ";;"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"staticStack", ",", "rollingStack", ",", "nr"}], "}"}], 
          ",", "Part"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"res", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"staticStack", ",", 
            RowBox[{"RotateRight", "[", 
             RowBox[{"rollingStack", ",", "nr"}], "]"}]}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{"res", "=", "stack"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921231468133*^9}, {3.545921272496409*^9, 
   3.545921296326404*^9}, {3.545921458045684*^9, 3.5459214626553183`*^9}, {
   3.545922936088925*^9, 3.545922954174203*^9}, {3.54592352280695*^9, 
   3.5459235538088417`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"outnumber", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}],
     "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"res", ",", "printStr"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"printStr", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"res", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"printStr", ",", "res"}], "}"}], ",", "Part"}], "]"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", "printStr", "]"}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{"res", "=", "stack"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921232564418*^9}, {3.545923029770616*^9, 
   3.545923134882127*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"evaluateCommand", "[", 
    RowBox[{"outchar", ",", "stack_", ",", "val_", ",", "dp_", ",", "cc_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"res", ",", "printStr"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"printStr", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"res", "=", 
       RowBox[{"stack", "[", 
        RowBox[{"[", 
         RowBox[{";;", 
          RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"printStr", ",", "res"}], "}"}], ",", "Part"}], "]"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"FromCharacterCode", "[", "printStr", "]"}], "]"}], ";"}], 
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
        RowBox[{"res", "=", "stack"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"res", ",", "dp", ",", "cc"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545887559362131*^9, 3.54588760269729*^9}, {
   3.545888040962224*^9, 3.545888049635029*^9}, {3.545888092136711*^9, 
   3.545888170600634*^9}, {3.545888207871266*^9, 3.545888213799581*^9}, {
   3.5458920857385817`*^9, 3.545892156798399*^9}, {3.545892222890476*^9, 
   3.545892288858345*^9}, {3.545892326289547*^9, 3.545892335371726*^9}, {
   3.545894836059218*^9, 3.545894840588538*^9}, {3.5458954805283117`*^9, 
   3.5458954867327623`*^9}, {3.54589555367443*^9, 3.545895713585691*^9}, {
   3.545895791528839*^9, 3.545895908461997*^9}, {3.545895947903432*^9, 
   3.5458959568929996`*^9}, {3.545895987772352*^9, 3.545895992062993*^9}, {
   3.5458960693580503`*^9, 3.5458961011516647`*^9}, {3.545896639971925*^9, 
   3.5458967918431892`*^9}, {3.545896913323434*^9, 3.545896914312069*^9}, {
   3.545908490432933*^9, 3.545908506128913*^9}, {3.545908552085988*^9, 
   3.545908561744008*^9}, {3.545908758461116*^9, 3.545908784874899*^9}, {
   3.545908830021014*^9, 3.5459088650036983`*^9}, {3.545920470030999*^9, 
   3.545920494032938*^9}, {3.5459205965210752`*^9, 3.5459207125086527`*^9}, {
   3.5459207610024137`*^9, 3.545920763656201*^9}, {3.5459208436370087`*^9, 
   3.54592094062274*^9}, {3.545921007928955*^9, 3.54592103128286*^9}, {
   3.545921080792647*^9, 3.5459211310670767`*^9}, 3.545921162707272*^9, {
   3.545921193307374*^9, 3.545921232564418*^9}, {3.545923144907193*^9, 
   3.5459231661985703`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "runProgram", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "runProgram", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Debug\>\"", "\[Rule]", "False"}], ",", 
     RowBox[{"\"\<MaxSteps\>\"", "\[Rule]", "\[Infinity]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"runProgram", "[", 
   RowBox[{"imgData_", ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "dp", ",", "cc", ",", "pos", ",", "nextPos", ",", "val", ",", "cmd", ",",
       "stack", ",", "debug", ",", "whiteQ", ",", "maxSteps", ",", "steps"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"debug", "=", 
      RowBox[{"OptionValue", "[", "\"\<Debug\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"maxSteps", "=", 
      RowBox[{"OptionValue", "[", "\"\<MaxSteps\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"pos", "=", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"cc", "=", "left"}], ";", "\[IndentingNewLine]", 
     RowBox[{"dp", "=", "right"}], ";", "\[IndentingNewLine]", 
     RowBox[{"steps", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"stack", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"cmd", "=!=", "terminated"}], "&&", 
        RowBox[{"steps", "<", "maxSteps"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"steps", "++"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "nextPos", ",", "val", ",", "dp", ",", "cc", ",", "whiteQ"}], "}"}],
          "=", 
         RowBox[{"findNextCodel", "[", 
          RowBox[{
          "imgData", ",", "pos", ",", "dp", ",", "cc", ",", "\"\<dp\>\"", ",",
            "0", ",", 
           RowBox[{"\"\<Debug\>\"", "\[Rule]", "debug"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", "whiteQ"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"cmd", "=", 
            RowBox[{"getCommand", "[", 
             RowBox[{"imgData", ",", "pos", ",", "nextPos"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"{", 
               RowBox[{
               "cmd", ",", "val", ",", "nextPos", ",", "dp", ",", "cc"}], 
               "}"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"debug", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<from\>\"", ",", "pos", ",", "\"\<to\>\"", ",", "nextPos",
                  ",", "\"\<with\>\"", ",", "cmd", ",", 
                 "\"\<. Stack before\>\"", ",", "stack"}], "}"}], "]"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"stack", ",", "dp", ",", "cc"}], "}"}], "=", 
            RowBox[{"Quiet", "[", 
             RowBox[{
              RowBox[{"Check", "[", 
               RowBox[{
                RowBox[{"evaluateCommand", "[", 
                 RowBox[{
                 "cmd", ",", "stack", ",", "val", ",", "dp", ",", "cc"}], 
                 "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"stack", ",", "dp", ",", "cc"}], "}"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Part", "::", "take"}], ",", 
                StyleBox[
                 RowBox[{"Part", "::", "partw"}], "MessageName"]}], 
               StyleBox["}", "MessageName"]}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"debug", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<stack after:\>\"", ",", "stack", ",", "\"\<dp\>\"", ",", 
                 "dp", ",", "\"\<cc\>\"", ",", "cc"}], "}"}], "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"pos", "=", "nextPos"}], ";"}]}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQrRCdOcE2+5Xjq5ozq0D0l6uP9oPoRwuOHgTRMld6
j4Nofg3tkyA6aWf6TxDdd2jjbxAtda88xQ5IB73NygHRdQxHSu2BdMdL1nIQ
veCK1BUQvepE7H0QfWQS+09HIH2yqfYPiHaKyBVxAtJyvlcVQHRK3FstEO3G
+wVMOy1lWACiN31eAqZFuo5eBtEHxPuvgtVN38vtDKT5dr4G01uNH+R7AOmq
BucCEM35YGIJiI5UOVkKoq17dWpB9KuEVY0getoKhosgOmvK4ksguiBdusUT
SHeJtvWC6LpZbvtAdEbajWMgOq6w6oI/kG76X3MNRFusefEERE85Y/oMRDtd
jvoIorOeHvsEogGRjrHL
  "]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Working examples", "Section",
 CellChangeTimes->{{3.545668714242581*^9, 3.545668717369546*^9}, {
  3.545921350564184*^9, 3.545921352354608*^9}}],

Cell[CellGroupData[{

Cell["HelloWorld", "Subsection",
 CellChangeTimes->{{3.545838043197894*^9, 3.545838044725749*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"helloWorld", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJzt1F0KwjAMAOCgPngJBY8yjzBPsIG+Cpsgu11uFvsDo65N05/pi0JaOko/
2iztqb+3tw0AjHvVtd2zGYZuuuzUx3l6XPutGhxUO6qmxyQF6p78QDvDBzcx
G0G2XubYYllkSc7il2XBLJAhB0+XIRNPlN3ChlVlCyLC+92pk6MLYkv1TogL
X07Yi+ybJwFrWHbDGnZY4bJmyGgOwv0hiCc5KutXhZfNobBwz062w1GcjWpZ
KjxetslmVtqpMpl4do6/vKxdp1A/JHuls568rMl6GYPBskg/KL8A6Hh4jQ==

      "], {{0, 29}, {30, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{286., Automatic},
    ImageSizeRaw->{30, 29},
    PlotRange->{{0, 30}, {0, 29}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5456641152823963`*^9, 3.5456641327881317`*^9}, {
  3.545664478981415*^9, 3.5456644814417973`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "helloWorld", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5458969634552307`*^9, 3.545896968739456*^9}, {
  3.545908253382077*^9, 3.545908253602579*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634647377*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.5459226347001877`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634755412*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.54592263475778*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634806696*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634856781*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634860766*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922634864709*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.5459226349383583`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.5459226349406767`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922635058818*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{3.545910405921467*^9, 3.545910436193331*^9, 
  3.545921345527134*^9, 3.54592214893288*^9, 3.5459223450207767`*^9, 
  3.545922635135536*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.54589537302598*^9, 3.545895569058752*^9, 3.545896108153455*^9, {
   3.545896802159052*^9, 3.545896818209189*^9}, 3.545896919247807*^9, 
   3.5458969695723763`*^9, 3.545897059572094*^9, 3.545907930864406*^9, 
   3.5459081070795794`*^9, 3.545908146092993*^9, 3.545908209770857*^9, {
   3.5459082408583307`*^9, 3.545908254844572*^9}, 3.545908713250352*^9, 
   3.545908890728381*^9, {3.54591039431546*^9, 3.545910406673231*^9}, 
   3.545910436676065*^9, 3.545921346010227*^9, 3.5459221493907423`*^9, 
   3.545922345537199*^9, 3.545922635140115*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["HelloWorld 2", "Subsection",
 CellChangeTimes->{{3.545921646252009*^9, 3.5459216580433197`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"artisticHelloWorld2", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztV1FuwjAMtdg+uMI+d5TtCHACkLZfJIY0cTvfLGTEjpMY0rKmpqKgNAru
i99rXmLo+3a3+l4AwM/Sd6vN78d+vzmuX/2Xz+Pha/viB2/+WvvrbwzOZQ0R
HGQN+0AghzgMsdsTjc4l2AmIuQtXiEfrIwDKHFUIiQEeJGJ6JFJ6R+FCtpsG
DqgDYZII5fAffyeHcGIWk0SiGM6TJCq51INf5oIWXHCeT8vjKOwEkEQGbT/J
w4k0V6ut3s0FMifa1sxx7m9zQXHFvrnj8lxTOOM9INrxoVxhQ8d+VlUdzxPD
eWgvBrNElotc57IUE5Y3NDDhymy1ddwpF5DhBrurwnXNcWwhJk0uBcfwjFe4
eotBLCFYF1Os+bDiprk8RYfjda45O/4842O7AHOq6toFm0Xu5DIW05XIjouK
AJSAWfxXJ4gAJPLIb2fu+T4+3PF/uKAe/DJXI8cBxfH7n3Hl+ChcyL8wNJhS
pbXkmpQYAy7GngALzq0A
      "], {{0, 25}, {83, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{313., Automatic},
    ImageSizeRaw->{83, 25},
    PlotRange->{{0, 83}, {0, 25}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5458964251145563`*^9, 3.5458964396779137`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "artisticHelloWorld2", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.545896444239312*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638111168*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.54592263816705*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.5459226382374563`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638240097*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638299972*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638302724*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638304921*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638371332*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638373744*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638438937*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638441818*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.5459226385256767`*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638529724*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545896444784133*^9, 3.545908929220832*^9, 
  3.545911543765398*^9, 3.545921594699815*^9, 3.545922153134513*^9, 
  3.545922349305841*^9, 3.545922638533649*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5458964452533607`*^9, 3.545908929638094*^9, 
  3.545911544178506*^9, 3.545921595132938*^9, 3.5459221535354033`*^9, 
  3.545922349812829*^9, 3.545922638537912*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["HelloWorld 3", "Subsection",
 CellChangeTimes->{{3.545921646252009*^9, 3.5459216642191067`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"artisticHelloWorld3", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztlksOgjAQhht14RVcehTdusMTYKJbEzQx3G5uhiVF0ud0Sgs0SAINOvWf
x9cZOd6exWPDGHvt+VKUn1NVlfV1xz+c6/f9tuUPB35f+N0+N/rVyBdq1O3i
OwDFCOmUNSNR2boZGAwLQ2TX5fiTBUIYoaWjK5ubRXZijQlDloXoBOXSBSmn
PUijEpSNSQmqpdJyGK8HfW5jenAlaM0hnKCrjZZLUKtOCEHX5M+IIKqME0Qm
P/jDyL0He3YixxkJxiiHE2TjEUQ6JYag+SYj29UeZP1qbO5q1u83oIMSSetV
krAZfcrUH6NulRpJMes+Fkxw7UE6wb+dokYCU/wPEsKYkKBWHRpBWw9mSdCd
g5cgUrq8CA7qQW+CUQR9p2x46VaCyQiGhdETVCd5ytIFKVsJuibSvATNNxki
QcRTZBgJD79pJCp/AbFiReo=
      "], {{0, 25}, {75, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{285., Automatic},
    ImageSizeRaw->{75, 25},
    PlotRange->{{0, 75}, {0, 25}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5458964251145563`*^9, 3.545896464886526*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "artisticHelloWorld3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.545896444239312*^9, 3.545896466474044*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226416463337`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641694503*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641755567*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641758257*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.54592264176051*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226418192387`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226418217278`*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226418239202`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641888649*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641891313*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226419647903`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.5459226419678183`*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641972191*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.545921597979494*^9, 
   3.54592215665234*^9, 3.5459223521674633`*^9, 3.545922641976646*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.5458964452533607`*^9, 3.5458964691840076`*^9}, 
   3.545908932900218*^9, 3.545911548163589*^9, 3.545921598399081*^9, 
   3.545922156981279*^9, 3.545922352501367*^9, 3.545922641980987*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["99 bottles of beer", "Subsection",
 CellChangeTimes->{{3.545912041886861*^9, 3.545912048438869*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"beer", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztWkuS3kQMVkEWXINjsCRHCFs2SRVsqQpUUbmdbtbYLcluSZ/d8tiZUDA9
k5n5+yGpP+vt/Pjpjw+/f0dEf/6w/Pjw8e+fP3/++OWXd8uH91/++u3T98sf
Py3/fl3+rX83++blA3GjxsTj342XsW65PDpNvn7uWw0axreW5d8yRENkLI9y
xYVZFnhFidevVWPaq04O8l1efQEXiItgcqwqUPdfbfLO6ou47HryImfxHxxv
/gQOqugJXDqY7PbKlZ14cvlazXils3w5Ssv04g7U55F98gT7yUAQTrqZJMYU
E7wCj3RC0VwvQbpedIWiA+PBXb2eYEIWD3hcbeJGE0HIBV1pYDTVE+SpsU/u
7OLKFUy6dqw/5H7h+bJ+JnGUWU/i0+8EIRfAfdww1ZMewEIMw96b9D5hMm+E
kLKomWgImfmMR0RB+lNe5BlZCUFd9wQhFyD8eIta3Ek3RXuQ7cDrn0XJbhNq
RgMmJKn1mlA3MlMpESxMhh0VPem/HSlJ/jO7PHugUZBTEx8tdYYkWf5Ip8/i
Zb1RHxHMC9MYW8BEk0GmoMkAE7aKyU8CmggosU9Rjq4VPN6a1YWIIW9uZ0KQ
WrQUuNNfoxR3mMzr7aSRWvZnHECAyfSJPxE2ggkHf8JmPj02kUPsgtfKk/4a
BUwaGSbuICLWNCGYbDyxdNr8CXuepNa6G+iIySv7k63e5zCXjIKt0HKnkQFD
wVYt64tdQ1pI/5hNVfQPryfoovXJINzcn0hfxT/+4F50Z86armDSbUb8aIc2
MOhQsEAh/ZzxevCm9UkvXCln0wjoBOSnMdEMlndnG1Y1Kumye+CWnySCkMv5
qGEituOfC8CEkGbCuHNo6axljWRs4y3lSLcvUvBSfhJD3hHy5+Ol/kRy27w1
K8W1nE28bJMnQCPEChNrvUNiSJ4gZ4JpPIIJI0zUUMJOyBDGYmTUmqfp5Si4
601VFReMySvpCfSxMB3s6WcWAwkGJ9lKYxZuERMWSfUTwoQTQczmdJR9bMAE
ZoOE5rE/gcpjX8IN2k6zPkEoNq3+4EgQ3WYyypg0rwMHrV5UXsCMF0OqzrPz
JK18hiMktrO3Tob8RE75W8CQN2metLKP7U7dF6Jgo3V7/GlsZYiPyLN5U/9G
SSJOj0yNOakfQ0yQkGjSy1GpdzhjwqHNJTsRJtf8iVRMmoI4PFcH3jExR8LB
mlvC5MiTT5zsNUzIT8cjtP140SBSXLTe4ZA5a0639XxHYEWYGFOQLDQteSpx
R91/9rL5CHoIB0UgFteqGWnGuqyMWdMT0SafHhlf72Px1WFwdOsVTCS3DEla
1n9pIWcWkC9gZIGY7NZeE8Ro2DJ8nurJgYXOEpSS7ehiTFwT2uSj534eEgVz
rNFcbcTXxf2QgHaESWzbi9sOvYtnMNnS2KlmEnx3AIlCRtZpJYAJ7/2Z3uYK
iLH+HgmqTEGkBzAZsxK/kKkhoK5gIplqs+LYPWJrI7L+AphA604vOGZhoKIn
RiMX72EnM3LpdX/C24qWNOM2dWvi2LS74iJ1O7DuiAE9EHd2nE8ptfuYtM12
2HJ8d2tzvrrTZbmW8keBECaTi5QwYftj1GRw5CYmZFlsk/TM96hltR/UnoLL
cgXKWLsfYHIOSiW3PziY525jokk7qWtx1kF6iszbBGezvyJ0AnF+OTiLxrV6
Z/8+vxSkccmfWHqiOjOuSr3MpkU+7pP2I5PtUMTExysscAmT2mS/yJ1Y3Np2
WaKUn2hrukmDEhXc0wyqaWJ/13Z6mVG+6Y1Y3Gh8jS6FoI8sVnn2bU4ouWfE
RCSPnSbAOZya60kme3Sphuhcyu3lIaoHzckGb4WGVabbqkgayAI2j+gJDDEn
wbSy81BPWDRNOgZhsV9Gqz8KNCQmRnOijJJU3Hd9LPbS2Enesh3W/rP0pkBK
vkUMacaCWJxDcWL0DCZQ0bDyI5d+JWfTJANhQtZ5FKMh9sZlbSZ3BFn9M5hI
PhAzn6+GCeU3FXKko8H2f1Ra6NWsu8MZzXECFz5qJu+yVeodK79ml4Lu6yom
Te6egt1W6GhAcqip7VDCJDm48AIRylapd8Ab8wNMgPO5lN5Y/LSU1RNXZ0OK
SfInyVJQfsb8QJ9NyvLk8cDOe7az5/NSJPg94kakV6uhJ/tYrycE+zkQKC9b
xXaKXZGbtqN6wtTUW/gLbgWdYeLyEw1ISaLMZZ27rSesvYvppTRkJBaQL5hr
9saTpfca9URjjbw5jqCw0gjyIMW9H3co1X9Hl3oAE3tRsb3iGWhbrNFuQs5F
8ouwllXH6sXjUcIEUfgamGi1o+zSjl54SY8aelORwMtT5e3XKz62Shi6nouY
8JaoZznUpxDwCDDuoLT6kXcZdUwIJr31/ERrHM09wg628q2rSbytQpL69gCT
R96NlhWQ8X8XKB9XeaRuSpJbvSMJSriuvJKLWR6SBxeqgdEMk//dGDF5+7bv
twHHP8VSM5k=
      "], {{0, 57}, {92, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{407., Automatic},
    ImageSizeRaw->{92, 57},
    PlotRange->{{0, 92}, {0, 57}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "beer", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.5459118906991053`*^9, 3.545912066362318*^9}],

Cell[CellGroupData[{

Cell[BoxData["99"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922645894855*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226463708487`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226464342833`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646437069*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226464391327`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592264644104*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646444437*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226464477158`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226468712*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226469521313`*^9}],

Cell[BoxData["\<\"f\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646954763*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646956832*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646960081*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592264696286*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646964838*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922646967074*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226473587523`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647439237*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592264744316*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647446661*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647449095*^9}],

Cell[BoxData["\<\"h\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647452408*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592264745553*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647458378*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226474605837`*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226474626913`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226474645567`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922647466434*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226479061737`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226479926033`*^9}],

Cell[BoxData["99"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226483984613`*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922648892721*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922648975113*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226489784527`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922648981024*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922648983534*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922648985867*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226489881268`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649449809*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226495275373`*^9}],

Cell[BoxData["\<\"f\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649530609*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649532915*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649535161*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226495374327`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649540349*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649542708*^9}],

Cell[BoxData["\<\".\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922649953355*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650034232*^9}],

Cell[BoxData["\<\"T\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650489709*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650593059*^9}],

Cell[BoxData["\<\"k\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650595882*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650598226*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650600492*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650602776*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650605021*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650607464*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592265061089*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506138372`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650616275*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650618568*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650620792*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506230288`*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650625359*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506276283`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650629896*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650632139*^9}],

Cell[BoxData["\<\"p\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506343937`*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506366673`*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650638947*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650641211*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650643499*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506458397`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650648101*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506503696`*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650652649*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506549797`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650657487*^9}],

Cell[BoxData["\<\"u\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506599493`*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506625347`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650665011*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922650667439*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226506698093`*^9}],

Cell[BoxData["98"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651073921*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651569078*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651649864*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651654305*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651657063*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226516598053`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651662506*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922651664948*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226521138897`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226522142363`*^9}],

Cell[BoxData["\<\"f\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652216814*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652219206*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652221542*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652223892*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652226637*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226522293787`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226525979033`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226527113667`*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652714472*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652716956*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652719405*^9}],

Cell[BoxData["\<\"h\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226527218237`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652724183*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226527268467`*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652729794*^9}],

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652732545*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226527350407`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922652737401*^9}],

Cell[BoxData["\<\".\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922653101264*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922653185783*^9}],

Cell[BoxData["98"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922654050458*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226545388327`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226546450644`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226546484013`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922654650984*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226546534033`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922654655822*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922654658238*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922655070723*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922655150126*^9}],

Cell[BoxData["\<\"f\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226551560802`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922655158812*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922655163066*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.545922655167219*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.54592265516986*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545921780730645*^9, 3.545922356231275*^9, 
  3.5459226551722937`*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459118913009644`*^9, 3.545912075360868*^9, 
  3.545921800649736*^9, 3.5459223603499928`*^9, 3.5459226553100977`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mondrian hello world", "Subsection",
 CellChangeTimes->{{3.545912041886861*^9, 3.545912048438869*^9}, {
  3.545912094508369*^9, 3.545912101617566*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mondrian", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztl2tOHDEMgC3aH71Gr9AbwBHoCUBq/yIBUsXtfDMzieNHnMwjs7PLVlor
wDBOnG8c20l+Pr88/r0DgLcf06/Hp3/3r69PH7+/T/88fLz/ef42PfwqP+kZ
gACQ+M/0exJ5gPTIHaY3SEja0lsso7hVkntrSy/yOLGWh+cX/C71USs2L7RU
pcMIldlbo8qyTEVrVHAoFYjtQpX5BqkQWXMIFXoHGd5WqlYCVRpZU6HYS98R
qKilIiZdoeKVdlTOwz3KI4QtD/kqUNlAGW7qKlt5cSsdNMstU9A8FXwd1ayv
8tp785cTzqo5KoCLwrRy5VRk8bA/xzZOusNyDiorJwCgpY+0AGnLI6SNzOLW
CGOOoE8CzpQTqLAYQUk0SWT+WG5q85qpiOh6qFT2USUKt38FKixFpjS0QYT+
kDZpHFXZCq06rVNdTqQEbaJC8q/PBwXUWUEqzi/Tk6r5E+p+0oPCXleM+3LX
HdfqRuX8VDAuw6OWdoN5XZ1RKGcY0ViUlSybP2PL52O3ng/dcVqqshIHUXHG
d6l8Vt2o9lN1Am2Eyt1HoKHKPfQWVlGhUM3dcdSaXm0WqHZVkxNl3VeHTDN0
+AcwX/FoP7Cs4BFSHbNBopljj5spQrzPfGZzpVJvUowd2wV8tHepgAcIlVg1
qpXPPILK19EBKp5AV5ZijpzsK9C5hqh0Mt1FIR/VzkcVZDtVOkMeTeVio9qL
e9GDG6mozu1ARV6tOvLHbEBXOUNBbgsKl/48rJTqVKC/pIhmiasbltvXsOIN
9Uurs1Mf9t02o+gblKy16LFzezg3uvjCYEGpwF82S72SwENnyisag85D7glp
+SDauY7UwdxX7DVY6knu4n1cf1nXbl/fdcLSYTWQSNlYpdJpUJfJZ2sk2URV
La4nuVGNU2ma7qNq0jxSxbJQU3GJMRL/3FQUX3YCFdVnnk2Fst0YPFVVUiPV
rMmG6oyymeom/4t8AsoGHwo=
      "], {{0, 50}, {50, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{376., Automatic},
    ImageSizeRaw->{50, 50},
    PlotRange->{{0, 50}, {0, 50}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "mondrian", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662756362*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.5459226628004827`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662802907*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.54592266280539*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662858712*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662861137*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662863533*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.5459226628666143`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.5459226628696213`*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662926622*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.54592266292957*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662931999*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.545922662934688*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545921817422274*^9, 
  3.545922163003358*^9, 3.545922365777804*^9, 3.5459226629368763`*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459118913009644`*^9, 3.545912075360868*^9, 
  3.545912119069297*^9, 3.545921817681974*^9, 3.5459221631871853`*^9, 
  3.545922366040913*^9, 3.545922663042039*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["World", "Subsection",
 CellChangeTimes->{{3.54591215083587*^9, 3.545912152698102*^9}, {
  3.5459122045565042`*^9, 3.545912206036078*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"world", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJyNlFFSAzEIhhn1wRv47FH0CPUE7Yy+OlOdcXq7/2YYSEhgl2yaptuwJR+E
AK+X79PXAxH9PJfH6fz3dr2ebx9PRXi//X5eHsvipX1lzTZRhPKQD0F/Wd4w
EwMsIrisZC1SGcT6D3RnMmTrZO5GNcf77aAxx/YcJRB2rzbbO4TijBw93tyH
lECmZhz1AwNyD2HHEQLPQzEjbJxB1XVx88FcQqDZwM2hELGlGxtzIvYQWXL5
UHsTTScmBarEAdJRaEnsThchIyAalJC4ZsVDQAnEUKwFsfakr7dH0wtWTgLp
zqRrr6Pmwu3scxur9FMdjLgdJMMkecxQq54lZKZArdE0yMTVI0KD8Lje1NsV
od5PzJHIOYiVh4ADpHNmtZM3Sfi2lKDu6LEC0ZQVp1ph67Vbc7fa0qZeVWqR
1NxA7fb8DxAeRew=
      "], {{0, 23}, {23, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{130., Automatic},
    ImageSizeRaw->{23, 23},
    PlotRange->{{0, 23}, {0, 23}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}, {3.545912158553293*^9, 3.545912162658436*^9}, {
  3.545912207797612*^9, 3.5459122161646957`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "world", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}, 3.545912166306335*^9, {3.545912210133232*^9, 
   3.545912210938727*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922667910363*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922667912628*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668003808*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668008377*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.54592266801245*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668016357*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668020166*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.5459226680241137`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668027926*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.5459226680321198`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668036489*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668040835*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.5459226680459557`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.545921844134939*^9, 
  3.545922166285499*^9, 3.545922370102026*^9, 3.545922668050229*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459122207658253`*^9, 3.545921844279274*^9, 
  3.5459221663883333`*^9, 3.54592237021428*^9, 3.545922668054213*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Fizzbuzz", "Subsection",
 CellChangeTimes->{{3.54591215083587*^9, 3.545912152698102*^9}, {
   3.5459122045565042`*^9, 3.545912206036078*^9}, {3.545912264348669*^9, 
   3.545912267890139*^9}, 3.5459218772462177`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fizz", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztWl2O3CAMRm0feo3epO0Rtm9925W6r5W2laq9HTdzgcwwhB/b2CQw0nyb
iTKQz/7iGPBm8uXl99PrB2PMn89u9/T879vb2/P7j0/uy/f3v79ePrqDn+7z
1X38MVgLbu9g/DdjrGuwxn3AdbkG99X1QTjD/fkuv7MQOtx+M2ADO/T67osZ
Twyn+b0/wTsITr1tbyL8WXM1BhGmB8n5NnxstTf4zxuD/tKOD0HZeHHgWS0B
la8kltIP283Nzhihv9p4RPx7kelv91Ya711/qxHXz7HGx0N/2fjQz8dDP7+x
4kCvH+8dqp/vgoNYbUAbaVlyq09qrQaqdmr83EVdAPcq+oOjbDwTa+rfCiTy
zsIp+SPBVtmLL3+N+Mvpav1DBIjv3oD8qeYlHwfkT9eZRyRAB539L1JT/4ia
QXX7uAmwZP6sEf8TLMC1EB0rANL8kd3KyCLoVP4ovGtCwaST8Vd611uYS6+a
2g7io6TWtgIds0BtK9ARCzji9c+liy3EU+bSxRZiAs6lYxYstS1ARywQ4794
wjOFjkUAhy6BR9HFFmybdSZdbMHoBIyiMywQawhKp5cgJR21YDlTwFw6FYEm
4i9Hc+l8C/532v3Gp5fcUXS+/gygC+AoOt9CbwF8Dh2xgA9+WIPOj0CGeP1z
6b0WAG7bofT0zOom0x9xdP1cmXH2m1C/ZRfAuP6e+bMEqOvPrACOgQHYXhOi
ofHOqf9x9E6AhX8dvYj/bWoF7jMxjQBy/Nrw5A7ZMv3dAtrxN2kEsshc2+j6
jT0BKTNQGn9l/tt4KAigH6GqAsYy6mcc6vzRBVBZPyvr/20I6QSw6MgKptEf
3I+ZwFt0Yvbpr58L/1ZDJ+dPgq7Of9tm8fK/z7ug/qcUqOjk8zcc6RlTBPQ+
f2svX2IB5aphLitG/UWCG/wL3tTwOap+jtDVb0rv1fo5vpVRfT0jhe9v6E8L
aeIuCPTb8vHVgQHEU0DjHXl+XlY7IwMYnbKX79YK1tK/O1D8AEpBR+fpxwzo
6Mr6TT9/xgSIiVYeMLLvmrS3iR2Amn53/Fn1m9J7Gv94ueUBcvmWr3G8fub4
PQEVp0D89wfp0//ZkObPKlcg0A/7+nMuhPl/nKBOCPMnLUCnQjp7rJJB+vlz
LoTxv3f9y4xgYf4ss4JFtR3l30LL1+TqRY9M9r6QRm/CGkDiD6yfLyZDOn6P
U9QHYf1woKI+3Hv9Zs1lqJYHCO6+fgj4DyiCPm0=
      "], {{0, 90}, {64, 0}}, {0, 
      255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{64, 90},
    PlotRange->{{0, 64}, {0, 90}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}, {3.545912158553293*^9, 3.545912162658436*^9}, {
  3.545912207797612*^9, 3.5459122161646957`*^9}, {3.545912273252963*^9, 
  3.5459122754847593`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "fizz", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}, 3.545912166306335*^9, {3.545912210133232*^9, 
   3.545912210938727*^9}, 3.545912278027196*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672759941*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672832892*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672835293*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672837503*^9}],

Cell[BoxData["\<\"F\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672913513*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672915893*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922672988348*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226729907637`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226729952297`*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226730662727`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.54592267315195*^9}],

Cell[BoxData["\<\"B\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673154745*^9}],

Cell[BoxData["\<\"u\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673157024*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673234055*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673236629*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673238906*^9}],

Cell[BoxData["\<\"F\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673323847*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673399961*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673403386*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226734057627`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673408622*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673490247*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226734931*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673567616*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226735702953`*^9}],

Cell[BoxData["\<\"F\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673650655*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673724744*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673728383*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226737319717`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226737350616`*^9}],

Cell[BoxData["\<\"B\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226738124037`*^9}],

Cell[BoxData["\<\"u\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226738149*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673817006*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226738940268`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226738964043`*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922673977235*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674056793*^9}],

Cell[BoxData["\<\"F\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226740597887`*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674062009*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674064239*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226740664043`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674160737*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674165989*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674170025*^9}],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226742477493`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674250207*^9}],

Cell[BoxData["\<\"F\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226743287086`*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674331234*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674409463*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226744118633`*^9}],

Cell[BoxData["\<\"B\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226744157047`*^9}],

Cell[BoxData["\<\"u\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674418007*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674420706*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674423244*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.545922674509364*^9}],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226746302137`*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{3.545912220664989*^9, 3.5459122801463947`*^9, 
  3.5459218540431223`*^9, 3.545922169425009*^9, 3.5459223736766872`*^9, 
  3.5459226746343927`*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459122207658253`*^9, 3.545912280279869*^9, 
  3.5459218560873537`*^9, 3.545922171302382*^9, 3.5459223755794907`*^9, 
  3.545922674638288*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Tetris", "Subsection",
 CellChangeTimes->{{3.5459123310357122`*^9, 3.545912332050239*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tetris", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJxlk1FOxDAMRC3gg08+uABHgSMsJ9iV4BdpQUJ7O99sSDwzTiNaN0qa53Qy
Tl8uX6fPu4j4fhzN6fz7er2eb+8PY/B2+/m43I/O83iexjP7QPBKh5qAYxuR
z0iHUnO24DvNjbt4QMNMQCt0+sbXwBPA4qGFEnOOmjhA1luAfEij4GRTMCPc
1/qCS7syJrTcOPiyLhuDaUBtaK7W7rHXBtYnYgmnRtun1dFeTZWzW9tPfwkZ
m+naT/FMIc8gX41S4JTJUyj1qBzRvE2ZkdaZx0PBilNeF6h5LtWs/P3HL63h
TfZ5UR2yeFmELnudp/br4PPGW655laJpFXsrb3uaYWNdwbBzuf4QKmRhzKdL
33x65sCvg3X8E/hnNQyfyMhVI4eS/gCpR+DP
      "], {{0, 20}, {16, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{16, 20},
    PlotRange->{{0, 16}, {0, 20}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}, {3.545912158553293*^9, 3.545912162658436*^9}, {
  3.545912207797612*^9, 3.5459122161646957`*^9}, {3.545912273252963*^9, 
  3.5459122754847593`*^9}, {3.545912342208023*^9, 3.545912353182865*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "tetris", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}, 3.545912166306335*^9, {3.545912210133232*^9, 
   3.545912210938727*^9}, 3.545912278027196*^9, {3.5459123481478767`*^9, 
   3.5459123592772417`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"T\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.545922680569057*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.5459226806587667`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.545922680661543*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.545922680664909*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.5459226806676903`*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545921869248855*^9, 3.545922174738858*^9, 3.545922380566957*^9, 
   3.545922680670505*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.545912349783348*^9, 3.545912360061976*^9}, 
   3.545921869331517*^9, 3.545922174839596*^9, 3.545922380661042*^9, 
   3.545922680673077*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Multicodel", "Subsection",
 CellChangeTimes->{{3.5459123310357122`*^9, 3.545912332050239*^9}, {
   3.545912405268137*^9, 3.545912406602805*^9}, 3.545912576149592*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mcodel", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJzNWFFOwzAMjYAPrsEF+OAGcIRxgk1iv0gDCe12uVlI/Z6bl3abOsQqV6FN
Xcd5iZ/tjKfd52Z/l1L6eqy3zfbn9XDYHt8f6svb8ftjd187L/Xvuf4N/VSs
5aHlkoeGB/qldordMm5Uqco5UV5qJyV7eB/NXkyVdsRMGZ+DWmotABLOaAPK
ipcv3nDiEQzJKZ3xliChvry4t2x8c3ISx0582vyuHlR5BCQYrayDTsdDSDEK
HMV2OvQRw98urDEOEje25qXpA1DauiIhab7hi9BN855mQqXwCR0x1vGWrBAk
5EMsJNBbwzP9xX2wVQRCAi9gm+EWpiXPecN2W5R5kXPg/phpisAroGSMLIm+
Sw1hkMxPBV6jzQ7GMhtPWS3UdjGX1DQ5Y6c0obNzNw4SgYJ9m1cu9vjVOMa4
E7nA7SQC4nLdjIPE6aJkbfnfP0rE/ZOceQMrUswRkEgE+bvw0i49TZHVNDpr
F/XVckcBHqCiIMleknPLVzqkWdOmvNV2WV8td7mOroqCxM+Leazs57yjbYl3
5vrdGuEihD7mjYMky25q7rp1FGvyYCaMgkTPcjzdLfaCM07acq/xVNAyaiAk
qEpSiZZH6xzJFdHNaphG9UBIJMN7nlnDO92ikevCIOlKkO48TN4uir20jN6M
gyRLNuNerpLt6UysXeIlAhIPP7wYkFVOBVpzk+5KCCRKF1g77R2dZYl35vq9
5WJEtq+yDxGQ+PZhrETWmei7Qo7McEafzEBis89xkDDDZznFdT8AoJqnv0ZF
k3LOa9aoadEqK+050DicWSiiIPFRLeezK/9p8bnaeY8cE592VV4kNCqqGr40
x2NCFCS/IBd80g==
      "], {{0, 50}, {46, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{178., Automatic},
    ImageSizeRaw->{46, 50},
    PlotRange->{{0, 46}, {0, 50}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}, {3.545912158553293*^9, 3.545912162658436*^9}, {
  3.545912207797612*^9, 3.5459122161646957`*^9}, {3.545912273252963*^9, 
  3.5459122754847593`*^9}, {3.545912342208023*^9, 3.545912353182865*^9}, {
  3.545912408702922*^9, 3.545912414435876*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "mcodel", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}, 3.545912166306335*^9, {3.545912210133232*^9, 
   3.545912210938727*^9}, 3.545912278027196*^9, {3.5459123481478767`*^9, 
   3.5459123592772417`*^9}, 3.545912426829371*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685447009*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685509762*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685514826*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.5459226855220833`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685527245*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685530855*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.5459226855332336`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685535556*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685615595*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685620244*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.5459226856227303`*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685625095*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{{3.545912349771957*^9, 3.545912359968013*^9}, 
   3.545912427448597*^9, 3.545921881445225*^9, 3.545922178269065*^9, 
   3.545922383702257*^9, 3.545922685628935*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.545912349783348*^9, 3.545912360061976*^9}, 
   3.54591242769275*^9, 3.5459218817649927`*^9, 3.545922178539603*^9, 
   3.545922383934732*^9, 3.54592268572644*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", 
   RowBox[{"ImageResize", "[", 
    RowBox[{"mcodel", ",", 
     RowBox[{"Scaled", "[", "0.5", "]"}], ",", 
     RowBox[{"Resampling", "\[Rule]", "\"\<Nearest\>\""}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5459124354825583`*^9, 3.5459124381862373`*^9}, {
  3.54591248023155*^9, 3.545912498822537*^9}, {3.545912531271659*^9, 
  3.545912562332539*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"P\"\>"], "Print",
 CellChangeTimes->{
  3.545912499176655*^9, {3.5459125460243196`*^9, 3.545912562982954*^9}, 
   3.54592188442528*^9, 3.5459221786397142`*^9, 3.5459223840307417`*^9, 
   3.5459226858203917`*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{
  3.545912499176655*^9, {3.5459125460243196`*^9, 3.545912562982954*^9}, 
   3.54592188442528*^9, 3.5459221786397142`*^9, 3.5459223840307417`*^9, 
   3.5459226858232203`*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{
  3.545912499176655*^9, {3.5459125460243196`*^9, 3.545912562982954*^9}, 
   3.54592188442528*^9, 3.5459221786397142`*^9, 3.5459223840307417`*^9, 
   3.545922685826212*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{
  3.545912499176655*^9, {3.5459125460243196`*^9, 3.545912562982954*^9}, 
   3.54592188442528*^9, 3.5459221786397142`*^9, 3.5459223840307417`*^9, 
   3.545922685829507*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{
  3.545912499176655*^9, {3.5459125460243196`*^9, 3.545912562982954*^9}, 
   3.54592188442528*^9, 3.5459221786397142`*^9, 3.5459223840307417`*^9, 
   3.545922685833315*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.545912481126375*^9, 3.545912499189846*^9}, {
   3.545912546042244*^9, 3.545912563082157*^9}, 3.5459218845311337`*^9, 
   3.5459221786534147`*^9, 3.545922384099217*^9, 3.545922685838065*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Artistic Hello World", "Subsection",
 CellChangeTimes->{{3.545896307681872*^9, 3.545896317322872*^9}, {
  3.545896388442623*^9, 3.545896389681259*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"artisticHelloWorld", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJxVkdsNwjAMRS3ggx+GYBQYoUzQSvCLVJBQt8tm5j6cIJo2D9s5vnbPy3N6
7CLidcQ0zZ/Lus7b7YDDdXvflz02p/q4z4zWEmtgDQw82NIBFwZNiSGrolum
r9j7F0MnYXLTlgQWXxbyG+H0GlkxIueQVDLCKRjcH14NIamy9AM7YuxXpE1M
agSpslGK3rBUJ7IqxWkxJcdKsS5D/VHTeN1pjSqTqi+fi9bZZCNUsnvkHlqT
Eg41bqwTp/L1gj236kTPIvwvptU/KqbhqvYLhgglqA==
      "], {{0, 13}, {13, 0}}, {0,
       255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{151., Automatic},
    ImageSizeRaw->{13, 13},
    PlotRange->{{0, 13}, {0, 13}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5458963938967*^9, 3.5458963997770576`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "artisticHelloWorld", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.545896408630127*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.5459234827305307`*^9}}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.5459234827605057`*^9}}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482815839*^9}}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482818901*^9}}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482821504*^9}}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482823958*^9}}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482826586*^9}}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482829612*^9}}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482832601*^9}}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482835438*^9}}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.5459234828379517`*^9}}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.545923482840665*^9}}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.5459234828433332`*^9}}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{
  3.5459088067630997`*^9, 3.545908904895125*^9, 3.5459115399704657`*^9, 
   3.545921550725935*^9, 3.545922695849411*^9, {3.545923010660932*^9, 
   3.545923019808923*^9}, 3.545923291210518*^9, {3.545923352647458*^9, 
   3.545923419412573*^9}, {3.545923455173954*^9, 3.54592348284584*^9}}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.545896409556258*^9, 3.545908743219714*^9, 3.5459088067684803`*^9, 
   3.545908904904825*^9, 3.545911539979451*^9, 3.545921550887189*^9, 
   3.545922695893527*^9, {3.545923010762506*^9, 3.545923020033168*^9}, 
   3.545923291320497*^9, {3.545923352835497*^9, 3.545923419561325*^9}, {
   3.545923455259758*^9, 3.545923482848154*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Alphabet", "Subsection",
 CellChangeTimes->{{3.545896553168644*^9, 3.545896558057124*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"alphabet", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJylk1uOwjAMRS2GDz5mE7MAFsEsobMCkIZfJEAadXfZ2R2/8iJJRdXItE7z
8PG1+brcpuuOiB4Hfkznv9P9fp5/9jz5np+/lw92Pvl35J/4oTGEIMaOmnwM
bjzRNR78Ru+0bpdF2cZGgH7huxDihYiBZFWfyxjiFRhQNF2UKEMMJ1EMdUkD
ovaJ/GmYCxgyqzEyQ+doVsP2qFncoMezo8FTqGFRyDjTMFkBrFHDM00KoF7S
W/Q1kCIxeHEzyftqUFWR4I1QT43BNR9hJABzPPS7aiTaHBq1woXUKzCClXZF
b7yo4T1hCicjav8pxuAle93ckKxWA7ncZZqD3shVKPZbOqNMPV39NFYDILQM
cu2yGsWR2BpbSBoGb40OhmwGtRiWzBY1MOgN9NSI+TYjyrqpLv2BfyUz1/U=

      "], {{0, 12}, {45, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{45, 12},
    PlotRange->{{0, 45}, {0, 12}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545896546816374*^9, 3.5458965499287643`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "alphabet", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5458965752987747`*^9, 3.545896582625375*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"a\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.54592349482111*^9}],

Cell[BoxData["\<\"b\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923494856702*^9}],

Cell[BoxData["\<\"c\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923494897265*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923494942814*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.54592349499552*^9}],

Cell[BoxData["\<\"f\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495049267*^9}],

Cell[BoxData["\<\"g\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.5459234950982523`*^9}],

Cell[BoxData["\<\"h\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.5459234951514597`*^9}],

Cell[BoxData["\<\"i\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495203915*^9}],

Cell[BoxData["\<\"j\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495259165*^9}],

Cell[BoxData["\<\"k\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495314513*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495373423*^9}],

Cell[BoxData["\<\"m\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495434366*^9}],

Cell[BoxData["\<\"n\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.5459234954993277`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495569356*^9}],

Cell[BoxData["\<\"p\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495631513*^9}],

Cell[BoxData["\<\"q\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.54592349569479*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495697311*^9}],

Cell[BoxData["\<\"s\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.5459234957641077`*^9}],

Cell[BoxData["\<\"t\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495832477*^9}],

Cell[BoxData["\<\"u\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495901238*^9}],

Cell[BoxData["\<\"v\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495976219*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923495978969*^9}],

Cell[BoxData["\<\"x\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.5459234960541573`*^9}],

Cell[BoxData["\<\"y\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.54592349612949*^9}],

Cell[BoxData["\<\"z\"\>"], "Print",
 CellChangeTimes->{{3.5458965766707*^9, 3.5458965832815123`*^9}, 
   3.5459089553391857`*^9, 3.545911714588293*^9, 3.5459117543104*^9, 
   3.5459118281453047`*^9, 3.54592172334902*^9, 3.545922700511606*^9, 
   3.545923003950891*^9, 3.545923496133931*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.545896576819392*^9, 3.545896583294148*^9}, 
   3.545908959883054*^9, 3.5459117160409803`*^9, 3.545911755609188*^9, 
   3.545911829601307*^9, 3.545921724686429*^9, 3.545922701999284*^9, 
   3.545923005427617*^9, 3.545923496242352*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Hanoi", "Subsection",
 CellChangeTimes->{{3.545896264945355*^9, 3.5458962655293922`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hanoi", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJyFU0FORDEIJerClWu3HkWPMJ5gJtGtyWhi5nbvZgg8aGmNTj9t+oE+4JU+
nT4O7zci8nlvy+H4/Xw+Hy+vd/bzcvl6O93a5sHmo03fi6hNQBQ6RTX0mBpx
gTu6mCYUmgZNnNi3M4DStuL0WPP8juN+npgnAg/piwUXIoTnJshaLNOu9M+T
CQOkRgb0gV+SWQ6KpBlokzaWn3T2pBkFRJOdRmFWAwRV44bDuigsv+GM3K4O
ZT6M0oqnfjJxHScyD+eFicaJroMBK0AVmsGQhc17zxr/iKtFhg6oBMaSQ+eK
dPUaC2drIW/uWKthHac400l73Of/NPHu2c/ZS9sjYyuxZeezKPxwAsa9N+cy
aumXR5WBBNpcifMDs/vIqg==
      "], {{0, 14}, {24, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{268., Automatic},
    ImageSizeRaw->{24, 14},
    PlotRange->{{0, 24}, {0, 14}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545896276814878*^9, 3.5458962842439547`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "hanoi", "]"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", "5"}]], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.545923560616643*^9}],

Cell[BoxData["\<\"\.08\"\>"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.545923560646319*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.5459235606486883`*^9}],

Cell[BoxData["\<\"-\"\>"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.5459235606541243`*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.545923560656962*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.5459235607276573`*^9}],

Cell[BoxData["0"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.545923560796321*^9}],

Cell[BoxData["\<\"\.08\"\>"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.54592356079916*^9}],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.5459235608739243`*^9}],

Cell[BoxData["\<\"\.08\"\>"], "Print",
 CellChangeTimes->{3.545921408191288*^9, 3.5459214665084763`*^9, 
  3.545922263637689*^9, 3.54592239011062*^9, 3.545922690795012*^9, 
  3.545923014379464*^9, 3.545923176025137*^9, 3.545923257228299*^9, 
  3.545923503676538*^9, 3.5459235609953823`*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.545921409029272*^9, 3.545921466908865*^9, 
  3.545922263933333*^9, 3.545922390439856*^9, 3.54592269111236*^9, 
  3.545923014799769*^9, 3.545923176392606*^9, 3.5459232575143127`*^9, 
  3.545923503976448*^9, 3.545923560999846*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Broken examples [White cells]", "Section",
 CellChangeTimes->{{3.545921937236652*^9, 3.5459219470996437`*^9}}],

Cell[CellGroupData[{

Cell["Fibonacci", "Subsection",
 CellChangeTimes->{{3.54589542752942*^9, 3.545895429977357*^9}}],

Cell["\<\
Seems to be relying on a different interpretation of white cells?\
\>", "Text",
 CellChangeTimes->{{3.545921505027347*^9, 3.545921520818988*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fibonacci", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJxtT0EOwjAMs2AHBK/YU+AJ4wWbBFekMQntd/5ZcJOmA2lVEjm22yb99Bqe
BwDvk8owfq7zPK73Ts1tXR7TUeCiPCsLNuN/oAUJN9iuigY2TzDlpBq3LGul
wOakMEIwn4b+IpxXkcEcFoJSSXcyP4rbaK1XJpmRtvKS5QGqZnVERm/43cI2
TIaDdWwxvpHP9wWz69hO
      "], {{0, 11}, {10, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{192., Automatic},
    ImageSizeRaw->{10, 11},
    PlotRange->{{0, 10}, {0, 11}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545895432038761*^9, 3.545895453952876*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{
   RowBox[{"ImageData", "[", "fibonacci", "]"}], ",", 
   RowBox[{"\"\<Debug\>\"", "\[Rule]", "True"}], ",", 
   RowBox[{"\"\<MaxSteps\>\"", "\[Rule]", "40"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.54589546446702*^9, {3.545896145354561*^9, 3.545896154683537*^9}, {
   3.5459108604491053`*^9, 3.54591087208844*^9}, {3.545911327051999*^9, 
   3.545911327161603*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491023097*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", "10", "}"}], ",", "\<\"dp\"\>", ",", "right", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491127357*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", "10", "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491132291*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", "\<\"dp\"\>", ",", "right", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491138809*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "11"}], "}"}]}],
  SequenceForm["restriction: ", {1, 11}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491143388*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214911481037`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "multiply", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491153036*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", "100", "}"}], ",", "\<\"dp\"\>", ",", "down", 
   ",", "\<\"cc\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491157764*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", "100", "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491162283*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "2"}], "}"}], ",", "\<\"dp\"\>", ",", "down", 
   ",", "\<\"cc\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214911663933`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10"}], "}"}]}],
  SequenceForm["restriction: ", {5, 10}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491170416*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491174241*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"with\"\>", ",", "subtract", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "2"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491178639*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", "98", "}"}], ",", "\<\"dp\"\>", ",", "left", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214911827173`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", "98", "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491186989*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491191141*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491195319*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left",
    ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491199622*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491204215*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", 
   ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491208417*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491212908*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491217332*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214912210627`*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214912249737`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", 
   ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214912286167`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491232538*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491236401*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left",
    ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491240055*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491243969*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3"}], "}"}], ",", "\<\"dp\"\>", 
   ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491248433*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0"}], "}"}]}],
  SequenceForm["restriction: ", {5, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491251748*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491253937*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5"}], "}"}]}],
  SequenceForm["restriction: ", {0, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214912559032`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491257805*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491259779*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "10"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "right", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149126182*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "10"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491263826*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "10", ",", "10"}], "}"}],
    ",", "\<\"dp\"\>", ",", "right", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491265873*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "11"}], "}"}]}],
  SequenceForm["restriction: ", {1, 11}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149126787*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491269848*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "multiply", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "10", ",", "10"}], 
    "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491271826*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "100"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "down", ",", "\<\"cc\"\>", ",", "right"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491273888*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "100"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491275931*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "100", ",", "2"}], "}"}],
    ",", "\<\"dp\"\>", ",", "down", ",", "\<\"cc\"\>", ",", "right"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491278008*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10"}], "}"}]}],
  SequenceForm["restriction: ", {5, 10}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491280019*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491281954*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"with\"\>", ",", "subtract", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "100", ",", "2"}], 
    "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491283924*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "98"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491286004*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "98"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491288081*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491290122*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1"}], 
    "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491292165*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1"}], 
    "}"}], ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491294276*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1"}], 
    "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491296329*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", 
   "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214912984447`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491300755*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491302958*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913054953`*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491308042*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", 
   "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913103523`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491313295*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913161793`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1"}], 
    "}"}], ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491318901*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1"}], 
    "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491321886*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3"}], "}"}], ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", 
   "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913248377`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0"}], "}"}]}],
  SequenceForm["restriction: ", {5, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491327791*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913306017`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5"}], "}"}]}],
  SequenceForm["restriction: ", {0, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491333426*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491336266*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491339253*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "10"}], "}"}], ",", "\<\"dp\"\>", ",", "right", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491342279*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "10"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491345044*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "10", ",", "10"}], "}"}], ",", "\<\"dp\"\>", ",", "right", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149134763*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "11"}], "}"}]}],
  SequenceForm["restriction: ", {1, 11}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149135003*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913522873`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "multiply", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "10", ",", "10"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491354383*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "100"}], "}"}], ",", "\<\"dp\"\>", ",", "down", 
   ",", "\<\"cc\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491356444*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "100"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913589*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "100", ",", "2"}], "}"}], ",", "\<\"dp\"\>", ",", "down", 
   ",", "\<\"cc\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491361108*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10"}], "}"}]}],
  SequenceForm["restriction: ", {5, 10}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491363316*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149136537*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"with\"\>", ",", "subtract", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "100", ",", "2"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491367463*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98"}], "}"}], ",", "\<\"dp\"\>", ",", "left", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491369742*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491372159*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", "left", 
   ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913763857`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491380601*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", 
   "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.54592149138311*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491385229*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>",
    ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913874187`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"with\"\>", ",", "duplicate", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",\

 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214913895407`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "left", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491391677*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491585973*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491591228*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>",
    ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491595517*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"with\"\>", ",", "outnumber", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",\

 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491600197*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214916050797`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1"}], "}"}], ",", "\<\"dp\"\>", ",", 
   "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491609127*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491613332*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "3"}], "}"}], ",", "\<\"dp\"\>",
    ",", "left", ",", "\<\"cc\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491617647*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0"}], "}"}]}],
  SequenceForm["restriction: ", {5, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491621839*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "right"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491625752*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"restriction: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5"}], "}"}]}],
  SequenceForm["restriction: ", {0, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214916298103`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"toggling cc to:\"\>", ",", "left"}], "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491633748*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"from\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", "\<\"to\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", "\<\"with\"\>", ",", "push", 
   ",", "\<\". Stack before\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "3"}], "}"}]}], "}"}]], "Print",\

 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.545921491637815*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"stack after:\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "98", ",", "1", ",", "1", ",", "3", ",", "98", ",", "1", ",", "1", ",", 
     "3", ",", "98", ",", "1", ",", "1", ",", "3", ",", "10"}], "}"}], 
   ",", "\<\"dp\"\>", ",", "right", ",", "\<\"cc\"\>", ",", "left"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.545896211894258*^9, 3.545908724631733*^9, 3.5459088988255043`*^9, 
   3.545910442253764*^9, 3.545910560679531*^9, 3.545910614868681*^9, 
   3.545910650486899*^9, 3.5459107148102427`*^9, {3.545910868055709*^9, 
   3.54591087268302*^9}, 3.5459113280690928`*^9, 3.5459214916425447`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Piet", "Subsection",
 CellChangeTimes->{{3.5458964834261208`*^9, 3.545896483873798*^9}, {
  3.5459115506537657`*^9, 3.545911552116088*^9}}],

Cell["\<\
Gets stuck, relies on different white cells behavior?\
\>", "Text",
 CellChangeTimes->{{3.545921701204219*^9, 3.545921714915473*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"piet", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztllEKwjAMhoP64DV89RZ6hHmCDfRVmILsdrlZTdVJhyYNCx3Kkv0rHQ39
+ndd101zrk4LALisqajq265t6+6wood9dz02S6psX3esB0ZIpSIoUW6lXgSZ
6VIaPJqd7nSnOx2eCUUDUdDngJGugJjZI6F3F2uYaOj9S//qKdXQQaSrXp/T
R9INYafnLJT17vR/pHP7o3ExK2PczCSDN8np86RPs7aZQBz+od6KbeK5pPdu
+t6d7vQidA6A/enZ6b9FDzo6inQekPM+xVbL0wVT6dyiRTOm3wEuFgYo
      "], {{0, 42}, {
      42, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{42, 42},
    PlotRange->{{0, 42}, {0, 42}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545896489128119*^9, 3.545896491327784*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "piet", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.545896498062305*^9, 3.545896514914865*^9}, {
  3.545911563742625*^9, 3.545911564133902*^9}}],

Cell[BoxData["\<\"P\"\>"], "Print",
 CellChangeTimes->{
  3.545896515363614*^9, 3.5459089457459993`*^9, {3.545911555260803*^9, 
   3.545911564836887*^9}, 3.545921690109005*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.5458965069145927`*^9, 3.545896518785375*^9}, 
   3.5459089518116827`*^9, {3.5459115603931837`*^9, 3.545911567227406*^9}, 
   3.545921695829103*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Broken examples [functions missing]\
\>", "Section",
 CellChangeTimes->{{3.545921959420053*^9, 3.545921965684223*^9}, {
  3.545922031966134*^9, 3.545922041915675*^9}}],

Cell[CellGroupData[{

Cell["Fancy Hello World [inchar]", "Subsection",
 CellChangeTimes->{{3.545896307681872*^9, 3.545896317322872*^9}, {
  3.5459220433400593`*^9, 3.545922045882609*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fancyHelloWorld", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJx9ktENgkAMhhv1wUdXMHEBR9AFSHACSfTVBI2GxDEYxBE6khvU9m8PEU6g
cHB8bf+2rKtLeZ4R0XWpt/L42NX1sTks9GXf3E7VXB9WcdkzswyMSOwUzlmG
/0PCaAhP8JrSsmb00Gvz7gKaTfK66zyjEjdCqWpZ3nTaZztSCtIv2+c9q98w
hBTI8/i6k+E1LTCEDZ4J2+j0SAxFP3rxIYw9TZ535b6EHh/kiNerLaKXPmh4
Mk4ZFWvi2yJplhSaJ3h3YW83LDRFXcO5e9s7WDAim4AE3zkhs0S9kuxn+fL4
czhc+lDy9OUDblj+Hg==
      "], {{0, 16}, {16, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{206., Automatic},
    ImageSizeRaw->{16, 16},
    PlotRange->{{0, 16}, {0, 16}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545896318515534*^9, 3.5458963233376713`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "fancyHelloWorld", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.545896341368877*^9, 3.545896376447629*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528022726*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528063616*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528066968*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528069765*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528073358*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.5459215280763073`*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528078871*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528081243*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528083544*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528085848*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.545896345336556*^9, 3.545908737708967*^9, 
  3.5459087998136*^9, 3.5459115230014753`*^9, 3.545921528179031*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(-3\\)\[NoBreak] in \[NoBreak]\\!\\({29}\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Part/take\\\", \
ButtonNote -> \\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545896345380443*^9, 3.545908737758296*^9, 
  3.545908799865197*^9, 3.5459115230811043`*^9, 3.545921528186164*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(-2\\)\[NoBreak] of \
\[NoBreak]\\!\\({29}\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545896345380443*^9, 3.545908737758296*^9, 
  3.545908799865197*^9, 3.5459115230811043`*^9, 3.545921528190797*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \
\[NoBreak]\\!\\(Mod[\\(\\(\\(\\(\\(\\({29}\\)\\) \[LeftDoubleBracket] \
\\(\\(-2\\)\\) \[RightDoubleBracket]\\)\\), 29\\)\\)]\\)\[NoBreak] is neither \
an integer nor a list of integers. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/pspec\\\", \
ButtonNote -> \\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545896345380443*^9, 3.545908737758296*^9, 
  3.545908799865197*^9, 3.5459115230811043`*^9, 3.545921528194838*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"evaluateCommand", "::", "nip"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Function call \
\[NoBreak]\\!\\(\\\"innumber\\\"\\)\[NoBreak] is not yet \
implemented.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545896345380443*^9, 3.545908737758296*^9, 
  3.545908799865197*^9, 3.5459115230811043`*^9, 3.545921528197991*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.54589634539107*^9, 3.545908737760257*^9, 
  3.545908799867519*^9, 3.545911523083168*^9, 3.545921528200674*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["NonPastel [innumber]", "Subsection",
 CellChangeTimes->{{3.54591215083587*^9, 3.545912152698102*^9}, {
  3.545922047947934*^9, 3.545922052084231*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nonpastel", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJy1V1FOwzAMtYAPrgEH4A5whHGCTYJfpIGEdjvfLLR5TuK2qZM0wdq6JG3j
Z/fZr3u6fJ0+74jo+3E6nM6/r9fr+fb+ME3ebj8fl/tp8Dx9X6bvPCaeP25j
hMP0M180j7CCATFvb2kw73Y6MDGmfshwwh4TU/AJjw4wnEAJkwz0HlwehoDJ
oHZISATvYfpfPx/gHIHDm98VjwJuvAuZuvBUkBOVodE5AUUETO6sDz5kImWG
d6jV4DptLxHi2SBohjsOOVCTcCBNm4HGiii5s5KCSI9Vfnpco/pibkm4EUgj
PjlwiJdZoVg+sjLOEktyBIxJAECdFsX5g0aKKJiyuIHrRBQXOsdeQsbWjmon
uY3J6UoZWztxc+EbOWn1kgS0E66kwE5BpVkDLkWUtogESerDumcmNbFubtKd
gi16suIPJm1BmbpTgWStRHqlynmd7pQDCQ0HXQgEUxXXYLbuFG2vpmqUukl3
ykjWSUiy3VoAtu5U3J5/b8GKfW+T7lSY9QLTGpShOzVAdEJWIlW4tUV3Om1V
Wdh57+KC7nRDSX8EQgbU2ZG6UwCCTqv+GBgl2ak7BSTLsgKLFqfH6Y5t225j
bNqpO7alty3KYhmpO7ZtC8eoyU7dOWCRGGN15wgSXtZyMFt3NKIZecgtqcfn
Qwpj5YNVe8xGdkR39AK56IB8a0rbpjEp/it0pqD16s4g+5cO325aa/4AnEWA
Cg==
      "], {{0, 34}, {46, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{288., Automatic},
    ImageSizeRaw->{46, 34},
    PlotRange->{{0, 46}, {0, 34}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459120579870863`*^9, 3.545912063757111*^9}, {3.545912107194315*^9, 
  3.545912109944602*^9}, {3.545912158553293*^9, 3.545912162658436*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "nonpastel", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, 3.545912066362318*^9, {3.545912115317083*^9, 
   3.545912116199114*^9}, 3.545912166306335*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(-1\\)\[NoBreak] of \[NoBreak]\\!\\({}\
\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.5459218292046757`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(-1\\)\[NoBreak] of \[NoBreak]\\!\\({}\
\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.54592182921486*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(-3\\)\[NoBreak] in \[NoBreak]\\!\\({}\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Part/take\\\", \
ButtonNote -> \\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829322237*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(-2\\)\[NoBreak] of \[NoBreak]\\!\\({}\
\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829326226*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partw\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829329503*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\(\\(\\({}\\)\\) \
\[LeftDoubleBracket] \\(\\(-2\\)\\) \[RightDoubleBracket]\\)\\) + \
\\(\\(\\(\\({}\\)\\) \[LeftDoubleBracket] \\(\\(-1\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\[NoBreak] is neither an integer nor a list of \
integers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/pspec\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829333226*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(-3\\)\[NoBreak] in \[NoBreak]\\!\\({}\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Part/take\\\", \
ButtonNote -> \\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829336401*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\(\\(\\({}\\)\\) \
\[LeftDoubleBracket] \\(\\(-2\\)\\) \[RightDoubleBracket]\\)\\) + \
\\(\\(\\(\\({}\\)\\) \[LeftDoubleBracket] \\(\\(-1\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\[NoBreak] is neither an integer nor a list of \
integers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/pspec\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829339716*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(-3\\)\[NoBreak] in \[NoBreak]\\!\\({}\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Part/take\\\", \
ButtonNote -> \\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829342785*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
take\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829345868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\(\\(\\({}\\)\\) \
\[LeftDoubleBracket] \\(\\(-2\\)\\) \[RightDoubleBracket]\\)\\) + \
\\(\\(\\(\\({}\\)\\) \[LeftDoubleBracket] \\(\\(-1\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\[NoBreak] is neither an integer nor a list of \
integers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/pspec\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829349045*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
pspec\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829352181*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.54592182964927*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297505493`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297537327`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829758419*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829765712*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829769905*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.54592182977308*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297763*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297792797`*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297822037`*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.5459218297846613`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829787434*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829790245*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FromCharacterCode", "::", "intnm"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Non-negative machine-sized integer expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(FromCharacterCode[\\(\\(\\(\
\\({}\\)\\) \[LeftDoubleBracket] \\(\\(-1\\)\\) \
\[RightDoubleBracket]\\)\\)]\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/intnm\\\", ButtonNote -> \
\\\"FromCharacterCode::intnm\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829793235*^9}],

Cell[BoxData[
 RowBox[{"FromCharacterCode", "[", 
  RowBox[{
   RowBox[{"{", "}"}], "\[LeftDoubleBracket]", 
   RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "]"}]], "Print",
 CellChangeTimes->{3.5459121188413982`*^9, 3.545912167266259*^9, 
  3.545921829796399*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"evaluateCommand", "::", "nip"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Function call \[NoBreak]\\!\\(\\\"inchar\\\"\\)\[NoBreak] \
is not yet implemented.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545912166843412*^9, 3.545921829798758*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459118913009644`*^9, 3.545912075360868*^9, 
  3.545912119069297*^9, 3.5459121673118362`*^9, 3.545921829801426*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Broken examples [unknown issues]\
\>", "Section",
 CellChangeTimes->{{3.545921983260264*^9, 3.545921992323887*^9}}],

Cell[CellGroupData[{

Cell["Artistic Hello World 2", "Subsection",
 CellChangeTimes->{{3.545896307681872*^9, 3.545896317322872*^9}, {
  3.545896388442623*^9, 3.545896389681259*^9}, {3.545921679277796*^9, 
  3.54592167947528*^9}}],

Cell["Does not terminate?", "Text",
 CellChangeTimes->{{3.545921617228306*^9, 3.545921620979068*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"artisticHelloWorld4", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJyNklEOwjAIhon64JN38Ch6hHmCLdHXJdPE7HbcDIH/b9dlMdptLTD4gLbn
YeweOxF5Hn3q+vdlmvr5dnDlOr/uw96FE7+QTdVE1F+VfEI08cdHLu5gYf1z
0DeJZAYmLJosp1nkDBsiftIMLlxUgEi8r7QmEzDaNlVD95gla/owNjIUgV1o
rTAbQSe5NzlS1uqIvkraksGKXsqvFWpTA36l3dhFE7bqcTOsqdOWOU6P9UKx
wgHzC21FRnc8OmwQOcpbI7g1bvwAAUK8jw==
      "], {{0, 14}, {14, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSize->{196., Automatic},
    ImageSizeRaw->{14, 14},
    PlotRange->{{0, 14}, {0, 14}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5458964251145563`*^9, 3.545896464886526*^9}, {
  3.5459116959783897`*^9, 3.5459116991014013`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "artisticHelloWorld4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.545896444239312*^9, 3.545896466474044*^9}, 
   3.545911700484174*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"H\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601817397*^9}],

Cell[BoxData["\<\"e\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601851522*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601857114*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.54592160186027*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601863021*^9}],

Cell[BoxData["\<\",\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601865777*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601868299*^9}],

Cell[BoxData["\<\"w\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.5459216018708143`*^9}],

Cell[BoxData["\<\"o\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601874557*^9}],

Cell[BoxData["\<\"r\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601878716*^9}],

Cell[BoxData["\<\"l\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.5459216018813267`*^9}],

Cell[BoxData["\<\"d\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601883733*^9}],

Cell[BoxData["\<\"!\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601886181*^9}],

Cell[BoxData["\<\"\\n\"\>"], "Print",
 CellChangeTimes->{{3.545896444784133*^9, 3.5458964688581057`*^9}, 
   3.5459089324634857`*^9, 3.545911547685573*^9, 3.5459117025958548`*^9, 
   3.545921601888522*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.5458964452533607`*^9, 3.5458964691840076`*^9}, 
   3.545908932900218*^9, 3.545911548163589*^9, 3.545911702650825*^9, 
   3.5459216138112803`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Prime number generator", "Subsection",
 CellChangeTimes->{{3.545911860723476*^9, 3.5459118654997597`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"primeGen", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztnF2O1DAMxyPggWtwFDgBWk6wK8Er0oKE9m2O5puFaey0Tmy3SdPMdpT5
K8xk03z9ZurEbjt8efn99OuDc+7P5+vL0/O/r6+vz28/Pl3/+Pb29+fLx2vm
O/2b8s55lmBKgO/XDIQXOkiVPEwJX0JFFxtMba6F06HpDdviC0+sA4+9hUbA
R6GhQuLd8PnwKWPyBRqPt5ckKSWvJ97WR1jv/Fykp2INzMsbt+RPrZQ3OZJm
Sl7vQOn5zKet4q+83t33SwVapuq7PrUM+3WC93T2u2+lpX3tDtXCW7JH373I
fRlGgrfHWddP9XNeHJQH7/m1d84j8oJb9iSK5piJW6EX1kziRKM2RgOupCqL
+DBOxKNxhpAlHmy4tKohHGMsXhmZrTQ4iazzef0859cixuGlqNrW5f1Uw8vN
Q9TH0rgjbfLOo/A5qHnfUH6dhVU/n38D72Zsg+Ni/5RPyp1ajn8p5UZ9u5/D
eNdqpLxz5yvfr28on+du1c/n38Arr5VlajXCBtXwokDdkICnAl6Zb7TH2vJM
LbxbezSN6017rLNrD3p9MMpVWbzrVzBot4Ui3jl/iD3Wluczb+HdWrAabbBF
FbxhV8WbNGk5X8aKNqTLfnv0avkOu850A17bHkEtt/Zfsx9v9VPBa/pONRvw
ZY89erV8t13n02/gjfGUqVYjbFAFL78jp9QPHwPgirbNK/Nl9qjbb30/cv77
eTc3YBwXDPuq9Z+h2g8v4w3Ce+ha/SlFz6qId86X2aNuv/X96Grj3Vi2Wo2w
QbW85nIVb5yHg9u8Mt/Ff26Kfxcuq7yKF1g+9Xv1ctMejfruCPu1TDPdrOq+
30PsMS8/yH5LeNNvWVGjDbaomtegqOWdW12q7PGW/nM8sslbGO/b9gh6eaX/
jCeiVq5RMV4KEliSdVDkjxTwntl/ruUtifffSyW83IXk8aDnwhMdswW8Mn8e
/3kn7xb1qeSFqFzwZu1CQDgY74a7sUfrz4L20wavF+kgjcObMIYN/qa85ECF
vOAlxNF4Dz2VOV3ytHYHcSdDjmiuV4Px2r73qoTta6vToYugUHQf898L0NgK
F7j4vGj1YHfOa8m4wFmE0pdWO5+T0eV6BfQToAF5rfpJzEgBMz5GVsLLVw+I
WxMkb6wzfhFCBHk+PodmHGaRoOSlK1d4T20w3vjHkZIdW7PqJ8mbUB881pl5
j1xW0hMs/yDl5wCdf0NBo/CbaYPxAgv04+IUoipazZYlCpOPj5luJuszSfc4
Pn5f0W9vB+PlJ3RvD59GAf5USW+vhI3r5tsLA/Hy5xn4J5BdjgGnHOC+h+UJ
OOYoJGsZ46W1pTM6TWVg3t7SeJl689ICPRbviX6jsYsXim4XhOO4ww7HG6It
8uvydQWSeG1JtIxZh/EKD1kKn1FeKfH9sBX97yIIsCyQvB++cia8opXSdjDe
2vPnoYceOo/+A1k2ht4=
      "], {{0, 80}, {80, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{80, 80},
    PlotRange->{{0, 80}, {0, 80}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "primeGen", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.5459118906991053`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(-13\\)\[NoBreak] in \
\[NoBreak]\\!\\({2305843009213693952, 2305843009213693952, 28, 56, 20, 40, \
12, 144, 24}\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Part/take\\\", ButtonNote -> \
\\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545911891298511*^9, 3.545921734837264*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(-12\\)\[NoBreak] \
through \[NoBreak]\\!\\(-1\\)\[NoBreak] in \
\[NoBreak]\\!\\({2305843009213693952, 2305843009213693952, 28, 56, 20, 40, \
12, 144, 24}\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Part/take\\\", ButtonNote -> \
\\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545911891298511*^9, 3.5459217348408413`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(-12\\)\[NoBreak] \
through \[NoBreak]\\!\\(-1\\)\[NoBreak] in \
\[NoBreak]\\!\\({2305843009213693952, 2305843009213693952, 28, 56, 20, 40, \
12, 144, 24}\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Part/take\\\", ButtonNote -> \
\\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545911891298511*^9, 3.545921734843006*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
take\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545911891298511*^9, 3.545921734845038*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5459118913009644`*^9, 3.545921735103582*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[Pi]", "Subsection",
 CellChangeTimes->{{3.545911910516603*^9, 3.545911913219028*^9}}],

Cell["Crashes kernel...", "Text",
 CellChangeTimes->{{3.545921766492877*^9, 3.545921769283368*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"piCalc", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztnFFu00AURS3gg22wFFhCWUErgfhDKkioa2BTb2fGaUMxju0ZJ545d5J7
dBs50Yw1c09HrX/y4eH73dc3Xdf9eD+83N3/+vj4eP/0+d3w5tPTzy8Pb4eL
b8PP7+HncB2dLn12rpigFzAm38jt+Ap6AXtJQWT1f5lcr4/Jn9txgkp7qWPq
td7x2+6k/JXX2fuMiTIrX6G+mnKaJr/5sw2vn6DZ+4yJvde8AqumhKZJpe2e
INxIIU2Tkpf+Bi29zkqcEHuscwXcQrXTVIgoeXO8fAVH/RZOp0ehVTUYTaLA
PfGqBR0tHZClz1+JfZdxFSlB/n90E2LHNVxRdmdyUmafhmaJvRZwddkX9gTh
Zeo7WhJRQRBeYyuOziMum44XePWO4oK5eHW34CjOnYiXdiOO4qxZeF234yjO
moV3ZUEr4EXdlKPYOB6vCE9lYuN4vB88lYktg/FyRFKTyB6J1yKVakT2SLwT
qVQj8obhhQimDpE3DG9DMHWIjDF4FbKpQGSMwXuQTQUiNQAvQTwWJB5WEL79
JmJB4rEg8VCC8I03FAsSjwWJx4LEU18QvuXmYkHisSDxWJB4LEg8NQXhm200
FiQeCxKPBYnHgsRjQeIpJKiPgT66GH8jiSMiaBZ8p43GgsRjQeKxIPFYkHgs
SDzH9vpjtnX+/6z12fhOG010L99e9a/tGJ5ehueXFwOHZ5njc83zJ/F8ffj8
dNbYuB3tkqWzUOIEWdAlguqA77e5WJB4LEg89cG33FAQ8F03FAsSjwWJhwLf
eBMBwffeRCxIPCz49sWDgzcgHgXwEmQjAt6DbHTAqxCMFHgbglEDL0QqguCd
SEUTvBaRKIOXg0ccvB88+uAV2U4SvCjbWQfvyoKS4HXZThK8NNtJgldnO0nw
Am0nCV6j7STBy7SdJHiltpMEL9Z2csAbtpokeNW2kwPeudUkwcu3nRxwC1aT
A27EanKwmiawmlawl4awlLawkYE/f4/ZWw==
      "], {{0, 104}, {139, 0}}, {0, 255},
      
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    BaseStyle->"ImageGraphics",
    ImageSizeRaw->{139, 104},
    PlotRange->{{0, 139}, {0, 104}}]}], ";"}]], "Input",
 CellChangeTimes->{{3.545911873378847*^9, 3.54591187653197*^9}, {
  3.5459119200251007`*^9, 3.545911927093875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "piCalc", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5459118906991053`*^9, {3.5459119228224287`*^9, 3.545911923667985*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ImageData", "::", "imginv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Expecting an image or graphics instead of \
\[NoBreak]\\!\\(piCalc\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/ImageData\\\", ButtonNote -> \\\
\"ImageData::imginv\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.545911891298511*^9, 3.5459119303173733`*^9, 
  3.5459119724911833`*^9}],

Cell[BoxData[
 RowBox[{"runProgram", "[", 
  RowBox[{"ImageData", "[", "piCalc", "]"}], "]"}]], "Output",
 CellChangeTimes->{3.5459118913009644`*^9, 3.545911935371071*^9, 
  3.545911972500432*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{830, 1017},
WindowMargins->{{Automatic, -1680}, {Automatic, 0}},
FrontEndVersion->"8.1 for Linux x86 (64-bit) (December 23, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 150, 2, 72, "Section"],
Cell[732, 26, 981, 26, 88, "Input"],
Cell[1716, 54, 5113, 117, 411, "Input"],
Cell[6832, 173, 1062, 27, 202, "Input"],
Cell[7897, 202, 232, 4, 30, "Input"],
Cell[8132, 208, 636, 16, 88, "Input"],
Cell[8771, 226, 728, 17, 88, "Input"],
Cell[9502, 245, 722, 17, 88, "Input"],
Cell[10227, 264, 734, 17, 88, "Input"],
Cell[10964, 283, 12729, 267, 1532, "Input"],
Cell[23696, 552, 469, 12, 88, "Input"],
Cell[24168, 566, 3674, 85, 506, "Input"],
Cell[CellGroupData[{
Cell[27867, 655, 104, 1, 37, "Subsection"],
Cell[27974, 658, 659, 17, 69, "Input"],
Cell[28636, 677, 1532, 41, 126, "Input"],
Cell[30171, 720, 3035, 76, 325, "Input"],
Cell[33209, 798, 1386, 35, 119, "Input"],
Cell[34598, 835, 833, 21, 34, "Input"],
Cell[35434, 858, 2645, 91, 373, "Input"],
Cell[38082, 951, 248, 6, 30, "Input"],
Cell[38333, 959, 2444, 55, 259, "Input"],
Cell[40780, 1016, 778, 20, 69, "Input"],
Cell[41561, 1038, 228, 5, 30, "Input"],
Cell[41792, 1045, 1793, 32, 50, "Input"],
Cell[43588, 1079, 1602, 26, 30, "Input"],
Cell[45193, 1107, 1697, 29, 30, "Input"],
Cell[46893, 1138, 2246, 43, 107, "Input"],
Cell[49142, 1183, 2555, 53, 107, "Input"],
Cell[51700, 1238, 2563, 53, 107, "Input"],
Cell[54266, 1293, 2563, 53, 107, "Input"],
Cell[56832, 1348, 2608, 54, 107, "Input"],
Cell[59443, 1404, 2601, 54, 107, "Input"],
Cell[62047, 1460, 2555, 52, 107, "Input"],
Cell[64605, 1514, 2654, 55, 107, "Input"],
Cell[67262, 1571, 2759, 58, 145, "Input"],
Cell[70024, 1631, 2941, 60, 221, "Input"],
Cell[72968, 1693, 2306, 45, 107, "Input"],
Cell[75277, 1740, 3685, 79, 278, "Input"],
Cell[78965, 1821, 2683, 54, 202, "Input"],
Cell[81651, 1877, 2735, 55, 202, "Input"],
Cell[84389, 1934, 5131, 123, 639, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[89569, 2063, 150, 2, 72, "Section"],
Cell[CellGroupData[{
Cell[89744, 2069, 98, 1, 37, "Subsection"],
Cell[89845, 2072, 856, 20, 293, "Input"],
Cell[CellGroupData[{
Cell[90726, 2096, 225, 4, 30, "Input"],
Cell[CellGroupData[{
Cell[90976, 2104, 194, 3, 23, "Print"],
Cell[91173, 2109, 196, 3, 23, "Print"],
Cell[91372, 2114, 194, 3, 23, "Print"],
Cell[91569, 2119, 193, 3, 23, "Print"],
Cell[91765, 2124, 194, 3, 23, "Print"],
Cell[91962, 2129, 194, 3, 23, "Print"],
Cell[92159, 2134, 194, 3, 23, "Print"],
Cell[92356, 2139, 194, 3, 23, "Print"],
Cell[92553, 2144, 196, 3, 23, "Print"],
Cell[92752, 2149, 196, 3, 23, "Print"],
Cell[92951, 2154, 194, 3, 23, "Print"],
Cell[93148, 2159, 194, 3, 23, "Print"]
}, Open  ]],
Cell[93357, 2165, 604, 9, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[94010, 2180, 102, 1, 29, "Subsection"],
Cell[94115, 2183, 1017, 22, 111, "Input"],
Cell[CellGroupData[{
Cell[95157, 2209, 159, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[95341, 2216, 215, 3, 23, "Print"],
Cell[95559, 2221, 214, 3, 23, "Print"],
Cell[95776, 2226, 217, 3, 23, "Print"],
Cell[95996, 2231, 215, 3, 23, "Print"],
Cell[96214, 2236, 215, 3, 23, "Print"],
Cell[96432, 2241, 215, 3, 23, "Print"],
Cell[96650, 2246, 215, 3, 23, "Print"],
Cell[96868, 2251, 215, 3, 23, "Print"],
Cell[97086, 2256, 215, 3, 23, "Print"],
Cell[97304, 2261, 215, 3, 23, "Print"],
Cell[97522, 2266, 215, 3, 23, "Print"],
Cell[97740, 2271, 217, 3, 23, "Print"],
Cell[97960, 2276, 215, 3, 23, "Print"],
Cell[98178, 2281, 217, 3, 43, "Print"]
}, Open  ]],
Cell[98410, 2287, 219, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[98678, 2296, 102, 1, 29, "Subsection"],
Cell[98783, 2299, 958, 21, 112, "Input"],
Cell[CellGroupData[{
Cell[99766, 2324, 183, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[99974, 2331, 248, 3, 23, "Print"],
Cell[100225, 2336, 246, 3, 23, "Print"],
Cell[100474, 2341, 246, 3, 23, "Print"],
Cell[100723, 2346, 246, 3, 23, "Print"],
Cell[100972, 2351, 245, 3, 23, "Print"],
Cell[101220, 2356, 248, 3, 23, "Print"],
Cell[101471, 2361, 248, 3, 23, "Print"],
Cell[101722, 2366, 248, 3, 23, "Print"],
Cell[101973, 2371, 246, 3, 23, "Print"],
Cell[102222, 2376, 246, 3, 23, "Print"],
Cell[102471, 2381, 248, 3, 23, "Print"],
Cell[102722, 2386, 248, 3, 23, "Print"],
Cell[102973, 2391, 246, 3, 23, "Print"],
Cell[103222, 2396, 248, 3, 43, "Print"]
}, Open  ]],
Cell[103485, 2402, 245, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[103779, 2411, 106, 1, 29, "Subsection"],
Cell[103888, 2414, 3053, 56, 269, "Input"],
Cell[CellGroupData[{
Cell[106966, 2474, 168, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[107159, 2481, 117, 2, 23, "Print"],
Cell[107279, 2485, 126, 2, 23, "Print"],
Cell[107408, 2489, 126, 2, 23, "Print"],
Cell[107537, 2493, 124, 2, 23, "Print"],
Cell[107664, 2497, 126, 2, 23, "Print"],
Cell[107793, 2501, 123, 2, 23, "Print"],
Cell[107919, 2505, 124, 2, 23, "Print"],
Cell[108046, 2509, 126, 2, 23, "Print"],
Cell[108175, 2513, 122, 2, 23, "Print"],
Cell[108300, 2517, 126, 2, 23, "Print"],
Cell[108429, 2521, 124, 2, 23, "Print"],
Cell[108556, 2525, 124, 2, 23, "Print"],
Cell[108683, 2529, 124, 2, 23, "Print"],
Cell[108810, 2533, 123, 2, 23, "Print"],
Cell[108936, 2537, 124, 2, 23, "Print"],
Cell[109063, 2541, 124, 2, 23, "Print"],
Cell[109190, 2545, 126, 2, 23, "Print"],
Cell[109319, 2549, 124, 2, 23, "Print"],
Cell[109446, 2553, 123, 2, 23, "Print"],
Cell[109572, 2557, 124, 2, 23, "Print"],
Cell[109699, 2561, 124, 2, 23, "Print"],
Cell[109826, 2565, 124, 2, 23, "Print"],
Cell[109953, 2569, 123, 2, 23, "Print"],
Cell[110079, 2573, 124, 2, 23, "Print"],
Cell[110206, 2577, 126, 2, 23, "Print"],
Cell[110335, 2581, 126, 2, 23, "Print"],
Cell[110464, 2585, 126, 2, 23, "Print"],
Cell[110593, 2589, 124, 2, 23, "Print"],
Cell[110720, 2593, 126, 2, 23, "Print"],
Cell[110849, 2597, 126, 2, 23, "Print"],
Cell[110978, 2601, 119, 2, 23, "Print"],
Cell[111100, 2605, 124, 2, 23, "Print"],
Cell[111227, 2609, 124, 2, 23, "Print"],
Cell[111354, 2613, 126, 2, 23, "Print"],
Cell[111483, 2617, 124, 2, 23, "Print"],
Cell[111610, 2621, 124, 2, 23, "Print"],
Cell[111737, 2625, 124, 2, 23, "Print"],
Cell[111864, 2629, 126, 2, 23, "Print"],
Cell[111993, 2633, 124, 2, 23, "Print"],
Cell[112120, 2637, 126, 2, 23, "Print"],
Cell[112249, 2641, 124, 2, 23, "Print"],
Cell[112376, 2645, 124, 2, 23, "Print"],
Cell[112503, 2649, 124, 2, 23, "Print"],
Cell[112630, 2653, 126, 2, 23, "Print"],
Cell[112759, 2657, 124, 2, 23, "Print"],
Cell[112886, 2661, 124, 2, 23, "Print"],
Cell[113013, 2665, 124, 2, 23, "Print"],
Cell[113140, 2669, 126, 2, 43, "Print"],
Cell[113269, 2673, 124, 2, 23, "Print"],
Cell[113396, 2677, 124, 2, 23, "Print"],
Cell[113523, 2681, 124, 2, 23, "Print"],
Cell[113650, 2685, 124, 2, 23, "Print"],
Cell[113777, 2689, 124, 2, 23, "Print"],
Cell[113904, 2693, 124, 2, 23, "Print"],
Cell[114031, 2697, 124, 2, 23, "Print"],
Cell[114158, 2701, 124, 2, 23, "Print"],
Cell[114285, 2705, 123, 2, 23, "Print"],
Cell[114411, 2709, 126, 2, 23, "Print"],
Cell[114540, 2713, 124, 2, 23, "Print"],
Cell[114667, 2717, 124, 2, 23, "Print"],
Cell[114794, 2721, 124, 2, 23, "Print"],
Cell[114921, 2725, 126, 2, 23, "Print"],
Cell[115050, 2729, 124, 2, 23, "Print"],
Cell[115177, 2733, 126, 2, 23, "Print"],
Cell[115306, 2737, 124, 2, 23, "Print"],
Cell[115433, 2741, 124, 2, 23, "Print"],
Cell[115560, 2745, 126, 2, 23, "Print"],
Cell[115689, 2749, 126, 2, 23, "Print"],
Cell[115818, 2753, 124, 2, 23, "Print"],
Cell[115945, 2757, 124, 2, 23, "Print"],
Cell[116072, 2761, 124, 2, 23, "Print"],
Cell[116199, 2765, 126, 2, 23, "Print"],
Cell[116328, 2769, 124, 2, 23, "Print"],
Cell[116455, 2773, 126, 2, 23, "Print"],
Cell[116584, 2777, 124, 2, 23, "Print"],
Cell[116711, 2781, 126, 2, 23, "Print"],
Cell[116840, 2785, 124, 2, 23, "Print"],
Cell[116967, 2789, 126, 2, 23, "Print"],
Cell[117096, 2793, 126, 2, 23, "Print"],
Cell[117225, 2797, 124, 2, 23, "Print"],
Cell[117352, 2801, 124, 2, 23, "Print"],
Cell[117479, 2805, 126, 2, 23, "Print"],
Cell[117608, 2809, 117, 2, 23, "Print"],
Cell[117728, 2813, 124, 2, 23, "Print"],
Cell[117855, 2817, 124, 2, 23, "Print"],
Cell[117982, 2821, 124, 2, 23, "Print"],
Cell[118109, 2825, 124, 2, 23, "Print"],
Cell[118236, 2829, 126, 2, 23, "Print"],
Cell[118365, 2833, 124, 2, 23, "Print"],
Cell[118492, 2837, 124, 2, 23, "Print"],
Cell[118619, 2841, 126, 2, 23, "Print"],
Cell[118748, 2845, 126, 2, 23, "Print"],
Cell[118877, 2849, 124, 2, 23, "Print"],
Cell[119004, 2853, 124, 2, 23, "Print"],
Cell[119131, 2857, 124, 2, 23, "Print"],
Cell[119258, 2861, 124, 2, 23, "Print"],
Cell[119385, 2865, 124, 2, 23, "Print"],
Cell[119512, 2869, 126, 2, 23, "Print"],
Cell[119641, 2873, 126, 2, 23, "Print"],
Cell[119770, 2877, 126, 2, 23, "Print"],
Cell[119899, 2881, 124, 2, 23, "Print"],
Cell[120026, 2885, 124, 2, 23, "Print"],
Cell[120153, 2889, 124, 2, 23, "Print"],
Cell[120280, 2893, 126, 2, 23, "Print"],
Cell[120409, 2897, 124, 2, 23, "Print"],
Cell[120536, 2901, 126, 2, 23, "Print"],
Cell[120665, 2905, 124, 2, 23, "Print"],
Cell[120792, 2909, 124, 2, 23, "Print"],
Cell[120919, 2913, 126, 2, 23, "Print"],
Cell[121048, 2917, 124, 2, 23, "Print"],
Cell[121175, 2921, 124, 2, 23, "Print"],
Cell[121302, 2925, 126, 2, 43, "Print"],
Cell[121431, 2929, 117, 2, 23, "Print"],
Cell[121551, 2933, 126, 2, 23, "Print"],
Cell[121680, 2937, 126, 2, 23, "Print"],
Cell[121809, 2941, 126, 2, 23, "Print"],
Cell[121938, 2945, 124, 2, 23, "Print"],
Cell[122065, 2949, 126, 2, 23, "Print"],
Cell[122194, 2953, 124, 2, 23, "Print"],
Cell[122321, 2957, 124, 2, 23, "Print"],
Cell[122448, 2961, 124, 2, 23, "Print"],
Cell[122575, 2965, 124, 2, 23, "Print"],
Cell[122702, 2969, 126, 2, 23, "Print"],
Cell[122831, 2973, 124, 2, 23, "Print"],
Cell[122958, 2977, 124, 2, 23, "Print"],
Cell[123085, 2981, 124, 2, 23, "Print"],
Cell[123212, 2985, 123, 2, 23, "Print"],
Cell[123338, 2989, 126, 2, 23, "Print"]
}, Open  ]],
Cell[123479, 2994, 174, 2, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[123702, 3002, 157, 2, 29, "Subsection"],
Cell[123862, 3006, 1593, 32, 393, "Input"],
Cell[CellGroupData[{
Cell[125480, 3042, 225, 5, 30, "Input"],
Cell[CellGroupData[{
Cell[125730, 3051, 170, 2, 23, "Print"],
Cell[125903, 3055, 172, 2, 23, "Print"],
Cell[126078, 3059, 170, 2, 23, "Print"],
Cell[126251, 3063, 169, 2, 23, "Print"],
Cell[126423, 3067, 170, 2, 23, "Print"],
Cell[126596, 3071, 170, 2, 23, "Print"],
Cell[126769, 3075, 170, 2, 23, "Print"],
Cell[126942, 3079, 172, 2, 23, "Print"],
Cell[127117, 3083, 172, 2, 23, "Print"],
Cell[127292, 3087, 170, 2, 23, "Print"],
Cell[127465, 3091, 169, 2, 23, "Print"],
Cell[127637, 3095, 170, 2, 23, "Print"],
Cell[127810, 3099, 170, 2, 23, "Print"],
Cell[127983, 3103, 174, 2, 43, "Print"]
}, Open  ]],
Cell[128172, 3108, 219, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[128440, 3117, 143, 2, 29, "Subsection"],
Cell[128586, 3121, 1130, 24, 147, "Input"],
Cell[CellGroupData[{
Cell[129741, 3149, 294, 6, 30, "Input"],
Cell[CellGroupData[{
Cell[130060, 3159, 168, 2, 23, "Print"],
Cell[130231, 3163, 168, 2, 23, "Print"],
Cell[130402, 3167, 168, 2, 23, "Print"],
Cell[130573, 3171, 168, 2, 23, "Print"],
Cell[130744, 3175, 167, 2, 23, "Print"],
Cell[130914, 3179, 168, 2, 23, "Print"],
Cell[131085, 3183, 168, 2, 23, "Print"],
Cell[131256, 3187, 170, 2, 23, "Print"],
Cell[131429, 3191, 168, 2, 23, "Print"],
Cell[131600, 3195, 170, 2, 23, "Print"],
Cell[131773, 3199, 168, 2, 23, "Print"],
Cell[131944, 3203, 168, 2, 23, "Print"],
Cell[132115, 3207, 170, 2, 23, "Print"],
Cell[132288, 3211, 170, 2, 43, "Print"]
}, Open  ]],
Cell[132473, 3216, 171, 2, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[132693, 3224, 221, 3, 29, "Subsection"],
Cell[132917, 3229, 1970, 38, 107, "Input"],
Cell[CellGroupData[{
Cell[134912, 3271, 315, 6, 30, "Input"],
Cell[CellGroupData[{
Cell[135252, 3281, 191, 3, 23, "Print"],
Cell[135446, 3286, 201, 3, 43, "Print"],
Cell[135650, 3291, 191, 3, 23, "Print"],
Cell[135844, 3296, 201, 3, 43, "Print"],
Cell[136048, 3301, 199, 3, 23, "Print"],
Cell[136250, 3306, 199, 3, 23, "Print"],
Cell[136452, 3311, 199, 3, 23, "Print"],
Cell[136654, 3316, 201, 3, 23, "Print"],
Cell[136858, 3321, 203, 3, 43, "Print"],
Cell[137064, 3326, 193, 3, 23, "Print"],
Cell[137260, 3331, 200, 3, 43, "Print"],
Cell[137463, 3336, 199, 3, 23, "Print"],
Cell[137665, 3341, 199, 3, 23, "Print"],
Cell[137867, 3346, 199, 3, 23, "Print"],
Cell[138069, 3351, 199, 3, 23, "Print"],
Cell[138271, 3356, 201, 3, 43, "Print"],
Cell[138475, 3361, 199, 3, 23, "Print"],
Cell[138677, 3366, 199, 3, 23, "Print"],
Cell[138879, 3371, 199, 3, 23, "Print"],
Cell[139081, 3376, 201, 3, 23, "Print"],
Cell[139285, 3381, 201, 3, 43, "Print"],
Cell[139489, 3386, 191, 3, 23, "Print"],
Cell[139683, 3391, 199, 3, 43, "Print"],
Cell[139885, 3396, 191, 3, 23, "Print"],
Cell[140079, 3401, 203, 3, 43, "Print"],
Cell[140285, 3406, 199, 3, 23, "Print"],
Cell[140487, 3411, 199, 3, 23, "Print"],
Cell[140689, 3416, 199, 3, 23, "Print"],
Cell[140891, 3421, 201, 3, 23, "Print"],
Cell[141095, 3426, 203, 3, 43, "Print"],
Cell[141301, 3431, 201, 3, 23, "Print"],
Cell[141505, 3436, 197, 3, 23, "Print"],
Cell[141705, 3441, 199, 3, 23, "Print"],
Cell[141907, 3446, 201, 3, 23, "Print"],
Cell[142111, 3451, 203, 3, 43, "Print"],
Cell[142317, 3456, 192, 3, 23, "Print"],
Cell[142512, 3461, 201, 3, 43, "Print"],
Cell[142716, 3466, 201, 3, 23, "Print"],
Cell[142920, 3471, 199, 3, 23, "Print"],
Cell[143122, 3476, 199, 3, 23, "Print"],
Cell[143324, 3481, 201, 3, 23, "Print"],
Cell[143528, 3486, 201, 3, 43, "Print"],
Cell[143732, 3491, 192, 3, 23, "Print"],
Cell[143927, 3496, 201, 3, 43, "Print"],
Cell[144131, 3501, 194, 3, 23, "Print"],
Cell[144328, 3506, 201, 3, 43, "Print"],
Cell[144532, 3511, 201, 3, 23, "Print"],
Cell[144736, 3516, 199, 3, 23, "Print"],
Cell[144938, 3521, 199, 3, 23, "Print"],
Cell[145140, 3526, 201, 3, 23, "Print"],
Cell[145344, 3531, 201, 3, 23, "Print"],
Cell[145548, 3536, 199, 3, 23, "Print"],
Cell[145750, 3541, 199, 3, 23, "Print"],
Cell[145952, 3546, 199, 3, 23, "Print"],
Cell[146154, 3551, 201, 3, 43, "Print"],
Cell[146358, 3556, 194, 3, 23, "Print"],
Cell[146555, 3561, 203, 3, 43, "Print"]
}, Open  ]],
Cell[146773, 3567, 199, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[147021, 3576, 96, 1, 29, "Subsection"],
Cell[147120, 3579, 1153, 23, 36, "Input"],
Cell[CellGroupData[{
Cell[148298, 3606, 371, 7, 30, "Input"],
Cell[CellGroupData[{
Cell[148694, 3617, 197, 3, 23, "Print"],
Cell[148894, 3622, 199, 3, 23, "Print"],
Cell[149096, 3627, 197, 3, 23, "Print"],
Cell[149296, 3632, 197, 3, 23, "Print"],
Cell[149496, 3637, 199, 3, 23, "Print"],
Cell[149698, 3642, 197, 3, 23, "Print"]
}, Open  ]],
Cell[149910, 3648, 197, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[150156, 3657, 172, 2, 29, "Subsection"],
Cell[150331, 3661, 1704, 33, 210, "Input"],
Cell[CellGroupData[{
Cell[152060, 3698, 393, 7, 30, "Input"],
Cell[CellGroupData[{
Cell[152478, 3709, 219, 3, 23, "Print"],
Cell[152700, 3714, 219, 3, 23, "Print"],
Cell[152922, 3719, 219, 3, 23, "Print"],
Cell[153144, 3724, 221, 3, 23, "Print"],
Cell[153368, 3729, 219, 3, 23, "Print"],
Cell[153590, 3734, 219, 3, 23, "Print"],
Cell[153812, 3739, 221, 3, 23, "Print"],
Cell[154036, 3744, 219, 3, 23, "Print"],
Cell[154258, 3749, 219, 3, 23, "Print"],
Cell[154480, 3754, 219, 3, 23, "Print"],
Cell[154702, 3759, 221, 3, 23, "Print"],
Cell[154926, 3764, 219, 3, 23, "Print"],
Cell[155148, 3769, 221, 3, 43, "Print"]
}, Open  ]],
Cell[155384, 3775, 219, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155640, 3783, 441, 10, 30, "Input"],
Cell[CellGroupData[{
Cell[156106, 3797, 229, 4, 23, "Print"],
Cell[156338, 3803, 229, 4, 23, "Print"],
Cell[156570, 3809, 227, 4, 23, "Print"],
Cell[156800, 3815, 227, 4, 23, "Print"],
Cell[157030, 3821, 229, 4, 43, "Print"]
}, Open  ]],
Cell[157274, 3828, 247, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[157570, 3837, 157, 2, 29, "Subsection"],
Cell[157730, 3841, 799, 19, 168, "Input"],
Cell[CellGroupData[{
Cell[158554, 3864, 158, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[158737, 3871, 346, 5, 23, "Print"],
Cell[159086, 3878, 346, 5, 23, "Print"],
Cell[159435, 3885, 344, 5, 23, "Print"],
Cell[159782, 3892, 344, 5, 23, "Print"],
Cell[160129, 3899, 344, 5, 23, "Print"],
Cell[160476, 3906, 344, 5, 23, "Print"],
Cell[160823, 3913, 344, 5, 23, "Print"],
Cell[161170, 3920, 344, 5, 23, "Print"],
Cell[161517, 3927, 344, 5, 23, "Print"],
Cell[161864, 3934, 344, 5, 23, "Print"],
Cell[162211, 3941, 346, 5, 23, "Print"],
Cell[162560, 3948, 344, 5, 23, "Print"],
Cell[162907, 3955, 346, 5, 23, "Print"],
Cell[163256, 3962, 345, 5, 43, "Print"]
}, Open  ]],
Cell[163616, 3970, 390, 6, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[164055, 3982, 96, 1, 29, "Subsection"],
Cell[164154, 3985, 889, 20, 32, "Input"],
Cell[CellGroupData[{
Cell[165068, 4009, 174, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[165267, 4016, 289, 4, 23, "Print"],
Cell[165559, 4022, 290, 4, 23, "Print"],
Cell[165852, 4028, 290, 4, 23, "Print"],
Cell[166145, 4034, 290, 4, 23, "Print"],
Cell[166438, 4040, 289, 4, 23, "Print"],
Cell[166730, 4046, 290, 4, 23, "Print"],
Cell[167023, 4052, 292, 4, 23, "Print"],
Cell[167318, 4058, 292, 4, 23, "Print"],
Cell[167613, 4064, 290, 4, 23, "Print"],
Cell[167906, 4070, 290, 4, 23, "Print"],
Cell[168199, 4076, 290, 4, 23, "Print"],
Cell[168492, 4082, 290, 4, 23, "Print"],
Cell[168785, 4088, 290, 4, 23, "Print"],
Cell[169078, 4094, 292, 4, 23, "Print"],
Cell[169373, 4100, 290, 4, 23, "Print"],
Cell[169666, 4106, 290, 4, 23, "Print"],
Cell[169959, 4112, 289, 4, 23, "Print"],
Cell[170251, 4118, 290, 4, 23, "Print"],
Cell[170544, 4124, 292, 4, 23, "Print"],
Cell[170839, 4130, 290, 4, 23, "Print"],
Cell[171132, 4136, 290, 4, 23, "Print"],
Cell[171425, 4142, 290, 4, 23, "Print"],
Cell[171718, 4148, 290, 4, 23, "Print"],
Cell[172011, 4154, 292, 4, 23, "Print"],
Cell[172306, 4160, 289, 4, 23, "Print"],
Cell[172598, 4166, 290, 4, 23, "Print"]
}, Open  ]],
Cell[172903, 4173, 291, 4, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[173243, 4183, 95, 1, 29, "Subsection"],
Cell[173341, 4186, 883, 20, 173, "Input"],
Cell[CellGroupData[{
Cell[174249, 4210, 103, 2, 30, "Input"],
Cell[CellGroupData[{
Cell[174377, 4216, 294, 5, 23, "Print"],
Cell[174674, 4223, 288, 4, 23, "Print"],
Cell[174965, 4229, 279, 4, 23, "Print"],
Cell[175247, 4235, 287, 4, 23, "Print"],
Cell[175537, 4241, 277, 4, 23, "Print"],
Cell[175817, 4247, 287, 4, 23, "Print"],
Cell[176107, 4253, 277, 4, 23, "Print"],
Cell[176387, 4259, 287, 4, 23, "Print"],
Cell[176677, 4265, 296, 5, 23, "Print"],
Cell[176976, 4272, 290, 4, 23, "Print"]
}, Open  ]],
Cell[177281, 4279, 285, 4, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[177627, 4290, 116, 1, 72, "Section"],
Cell[CellGroupData[{
Cell[177768, 4295, 96, 1, 37, "Subsection"],
Cell[177867, 4298, 155, 3, 30, "Text"],
Cell[178025, 4303, 698, 17, 228, "Input"],
Cell[CellGroupData[{
Cell[178748, 4324, 423, 9, 30, "Input"],
Cell[CellGroupData[{
Cell[179196, 4337, 614, 13, 23, "Print"],
Cell[179813, 4352, 491, 9, 23, "Print"],
Cell[180307, 4363, 621, 13, 23, "Print"],
Cell[180931, 4378, 517, 10, 23, "Print"],
Cell[181451, 4390, 524, 11, 23, "Print"],
Cell[181978, 4403, 406, 7, 23, "Print"],
Cell[182387, 4412, 652, 14, 23, "Print"],
Cell[183042, 4428, 492, 9, 23, "Print"],
Cell[183537, 4439, 623, 13, 23, "Print"],
Cell[184163, 4454, 519, 10, 23, "Print"],
Cell[184685, 4466, 524, 11, 23, "Print"],
Cell[185212, 4479, 403, 7, 23, "Print"],
Cell[185618, 4488, 651, 14, 23, "Print"],
Cell[186272, 4504, 492, 9, 23, "Print"],
Cell[186767, 4515, 620, 13, 23, "Print"],
Cell[187390, 4530, 515, 10, 23, "Print"],
Cell[187908, 4542, 650, 14, 23, "Print"],
Cell[188561, 4558, 525, 10, 23, "Print"],
Cell[189089, 4570, 660, 14, 23, "Print"],
Cell[189752, 4586, 535, 10, 23, "Print"],
Cell[190290, 4598, 670, 14, 23, "Print"],
Cell[190963, 4614, 548, 11, 23, "Print"],
Cell[191514, 4627, 685, 15, 23, "Print"],
Cell[192202, 4644, 335, 5, 23, "Print"],
Cell[192540, 4651, 537, 10, 23, "Print"],
Cell[193080, 4663, 670, 14, 23, "Print"],
Cell[193753, 4679, 333, 5, 23, "Print"],
Cell[194089, 4686, 525, 10, 23, "Print"],
Cell[194617, 4698, 655, 14, 23, "Print"],
Cell[195275, 4714, 535, 10, 23, "Print"],
Cell[195813, 4726, 522, 11, 23, "Print"],
Cell[196338, 4739, 404, 7, 23, "Print"],
Cell[196745, 4748, 524, 11, 23, "Print"],
Cell[197272, 4761, 403, 7, 23, "Print"],
Cell[197678, 4770, 665, 14, 23, "Print"],
Cell[198346, 4786, 549, 11, 23, "Print"],
Cell[198898, 4799, 680, 15, 23, "Print"],
Cell[199581, 4816, 561, 11, 23, "Print"],
Cell[200145, 4829, 523, 11, 23, "Print"],
Cell[200671, 4842, 404, 7, 23, "Print"],
Cell[201078, 4851, 698, 15, 23, "Print"],
Cell[201779, 4868, 551, 11, 23, "Print"],
Cell[202333, 4881, 682, 15, 23, "Print"],
Cell[203018, 4898, 561, 11, 23, "Print"],
Cell[203582, 4911, 524, 11, 23, "Print"],
Cell[204109, 4924, 403, 7, 23, "Print"],
Cell[204515, 4933, 697, 15, 23, "Print"],
Cell[205215, 4950, 549, 11, 23, "Print"],
Cell[205767, 4963, 679, 15, 23, "Print"],
Cell[206449, 4980, 559, 11, 23, "Print"],
Cell[207011, 4993, 696, 15, 23, "Print"],
Cell[207710, 5010, 575, 12, 23, "Print"],
Cell[208288, 5024, 711, 16, 23, "Print"],
Cell[209002, 5042, 589, 12, 23, "Print"],
Cell[209594, 5056, 722, 16, 23, "Print"],
Cell[210319, 5074, 597, 12, 23, "Print"],
Cell[210919, 5088, 734, 16, 23, "Print"],
Cell[211656, 5106, 333, 5, 23, "Print"],
Cell[211992, 5113, 589, 12, 23, "Print"],
Cell[212584, 5127, 722, 16, 23, "Print"],
Cell[213309, 5145, 335, 5, 23, "Print"],
Cell[213647, 5152, 575, 12, 23, "Print"],
Cell[214225, 5166, 706, 16, 23, "Print"],
Cell[214934, 5184, 589, 12, 23, "Print"],
Cell[215526, 5198, 522, 11, 23, "Print"],
Cell[216051, 5211, 406, 7, 23, "Print"],
Cell[216460, 5220, 522, 11, 23, "Print"],
Cell[216985, 5233, 403, 7, 23, "Print"],
Cell[217391, 5242, 717, 16, 23, "Print"],
Cell[218111, 5260, 599, 12, 23, "Print"],
Cell[218713, 5274, 729, 16, 23, "Print"],
Cell[219445, 5292, 609, 12, 23, "Print"],
Cell[220057, 5306, 523, 11, 23, "Print"],
Cell[220583, 5319, 406, 7, 23, "Print"],
Cell[220992, 5328, 745, 16, 43, "Print"],
Cell[221740, 5346, 600, 12, 23, "Print"],
Cell[222343, 5360, 729, 16, 23, "Print"],
Cell[223075, 5378, 610, 12, 23, "Print"],
Cell[223688, 5392, 524, 11, 23, "Print"],
Cell[224215, 5405, 402, 7, 23, "Print"],
Cell[224620, 5414, 744, 16, 43, "Print"],
Cell[225367, 5432, 598, 12, 23, "Print"],
Cell[225968, 5446, 728, 16, 23, "Print"],
Cell[226699, 5464, 610, 12, 23, "Print"],
Cell[227312, 5478, 743, 16, 43, "Print"],
Cell[228058, 5496, 617, 12, 23, "Print"],
Cell[228678, 5510, 753, 16, 43, "Print"],
Cell[229434, 5528, 630, 12, 23, "Print"],
Cell[230067, 5542, 767, 17, 43, "Print"],
Cell[230837, 5561, 641, 13, 23, "Print"],
Cell[231481, 5576, 776, 17, 43, "Print"],
Cell[232260, 5595, 333, 5, 23, "Print"],
Cell[232596, 5602, 628, 12, 23, "Print"],
Cell[233227, 5616, 765, 17, 43, "Print"],
Cell[233995, 5635, 335, 5, 23, "Print"],
Cell[234333, 5642, 618, 12, 23, "Print"],
Cell[234954, 5656, 748, 16, 43, "Print"],
Cell[235705, 5674, 628, 12, 23, "Print"],
Cell[236336, 5688, 522, 11, 23, "Print"],
Cell[236861, 5701, 404, 7, 23, "Print"],
Cell[237268, 5710, 524, 11, 23, "Print"],
Cell[237795, 5723, 403, 7, 23, "Print"],
Cell[238201, 5732, 760, 17, 43, "Print"],
Cell[238964, 5751, 645, 13, 23, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[239670, 5771, 145, 2, 29, "Subsection"],
Cell[239818, 5775, 143, 3, 30, "Text"],
Cell[239964, 5780, 763, 18, 59, "Input"],
Cell[CellGroupData[{
Cell[240752, 5802, 217, 4, 30, "Input"],
Cell[240972, 5808, 176, 3, 23, "Print"],
Cell[241151, 5813, 205, 3, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241417, 5823, 177, 4, 72, "Section"],
Cell[CellGroupData[{
Cell[241619, 5831, 165, 2, 37, "Subsection"],
Cell[241787, 5835, 828, 19, 223, "Input"],
Cell[CellGroupData[{
Cell[242640, 5858, 179, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[242844, 5865, 168, 2, 23, "Print"],
Cell[243015, 5869, 168, 2, 23, "Print"],
Cell[243186, 5873, 168, 2, 23, "Print"],
Cell[243357, 5877, 168, 2, 23, "Print"],
Cell[243528, 5881, 168, 2, 23, "Print"],
Cell[243699, 5885, 170, 2, 23, "Print"],
Cell[243872, 5889, 168, 2, 23, "Print"],
Cell[244043, 5893, 168, 2, 23, "Print"],
Cell[244214, 5897, 168, 2, 23, "Print"],
Cell[244385, 5901, 168, 2, 23, "Print"],
Cell[244556, 5905, 168, 2, 23, "Print"]
}, Open  ]],
Cell[244739, 5910, 596, 11, 24, "Message"],
Cell[245338, 5923, 561, 11, 24, "Message"],
Cell[245902, 5936, 677, 13, 24, "Message"],
Cell[246582, 5951, 377, 9, 24, "Message"],
Cell[246962, 5962, 167, 2, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[247178, 5970, 156, 2, 29, "Subsection"],
Cell[247337, 5974, 1376, 28, 230, "Input"],
Cell[CellGroupData[{
Cell[248738, 6006, 248, 5, 30, "Input"],
Cell[248989, 6013, 490, 10, 24, "Message"],
Cell[249482, 6025, 487, 10, 24, "Message"],
Cell[249972, 6037, 523, 10, 24, "Message"],
Cell[250498, 6049, 488, 10, 24, "Message"],
Cell[250989, 6061, 550, 11, 24, "Message"],
Cell[251542, 6074, 672, 13, 24, "Message"],
Cell[252217, 6089, 523, 10, 24, "Message"],
Cell[252743, 6101, 672, 13, 24, "Message"],
Cell[253418, 6116, 523, 10, 24, "Message"],
Cell[253944, 6128, 549, 11, 24, "Message"],
Cell[254496, 6141, 672, 13, 24, "Message"],
Cell[255171, 6156, 550, 11, 24, "Message"],
Cell[CellGroupData[{
Cell[255746, 6171, 125, 2, 23, "Print"],
Cell[255874, 6175, 128, 2, 23, "Print"],
Cell[256005, 6179, 128, 2, 23, "Print"],
Cell[256136, 6183, 126, 2, 23, "Print"],
Cell[256265, 6187, 126, 2, 23, "Print"],
Cell[256394, 6191, 126, 2, 23, "Print"],
Cell[256523, 6195, 125, 2, 23, "Print"],
Cell[256651, 6199, 124, 2, 23, "Print"],
Cell[256778, 6203, 128, 2, 23, "Print"],
Cell[256909, 6207, 128, 2, 23, "Print"],
Cell[257040, 6211, 128, 2, 23, "Print"],
Cell[257171, 6215, 126, 2, 23, "Print"],
Cell[257300, 6219, 126, 2, 23, "Print"]
}, Open  ]],
Cell[257441, 6224, 654, 12, 42, "Message"],
Cell[258098, 6238, 266, 6, 23, "Print"],
Cell[258367, 6246, 302, 7, 24, "Message"],
Cell[258672, 6255, 172, 2, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[258905, 6264, 125, 3, 72, "Section"],
Cell[CellGroupData[{
Cell[259055, 6271, 207, 3, 37, "Subsection"],
Cell[259265, 6276, 101, 1, 30, "Text"],
Cell[259369, 6279, 840, 19, 213, "Input"],
Cell[CellGroupData[{
Cell[260234, 6302, 209, 4, 30, "Input"],
Cell[CellGroupData[{
Cell[260468, 6310, 203, 3, 23, "Print"],
Cell[260674, 6315, 203, 3, 23, "Print"],
Cell[260880, 6320, 203, 3, 23, "Print"],
Cell[261086, 6325, 202, 3, 23, "Print"],
Cell[261291, 6330, 203, 3, 23, "Print"],
Cell[261497, 6335, 203, 3, 23, "Print"],
Cell[261703, 6340, 203, 3, 23, "Print"],
Cell[261909, 6345, 205, 3, 23, "Print"],
Cell[262117, 6350, 203, 3, 23, "Print"],
Cell[262323, 6355, 203, 3, 23, "Print"],
Cell[262529, 6360, 205, 3, 23, "Print"],
Cell[262737, 6365, 203, 3, 23, "Print"],
Cell[262943, 6370, 203, 3, 23, "Print"],
Cell[263149, 6375, 205, 3, 43, "Print"]
}, Open  ]],
Cell[263369, 6381, 203, 3, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[263621, 6390, 112, 1, 29, "Subsection"],
Cell[263736, 6393, 1943, 37, 97, "Input"],
Cell[CellGroupData[{
Cell[265704, 6434, 150, 3, 30, "Input"],
Cell[265857, 6439, 597, 12, 43, "Message"],
Cell[266457, 6453, 600, 12, 43, "Message"],
Cell[267060, 6467, 598, 12, 43, "Message"],
Cell[267661, 6481, 549, 11, 24, "Message"],
Cell[268213, 6494, 101, 1, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[268363, 6501, 93, 1, 29, "Subsection"],
Cell[268459, 6504, 99, 1, 30, "Text"],
Cell[268561, 6507, 1533, 31, 43, "Input"],
Cell[CellGroupData[{
Cell[270119, 6542, 199, 4, 30, "Input"],
Cell[270321, 6548, 508, 11, 24, "Message"],
Cell[270832, 6561, 196, 4, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)