Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lidm", "=", 
       RowBox[{"Length", "[", 
        RowBox[{"IntegerDigits", "[", "multiply", "]"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Opacity", "[", ".3", "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Hue", "[", 
              RowBox[{"1", "-", 
               RowBox[{"k", "/", 
                RowBox[{"(", 
                 RowBox[{"lidm", "+", "1"}], ")"}]}]}], "]"}], ",", 
             RowBox[{"Rectangle", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"k", ",", 
                 RowBox[{"-", ".5"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"k", "-", "1"}], ",", "9.5"}], "}"}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "lidm"}], "}"}]}], "]"}], ",", "Red", 
         ",", 
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", ".5"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "9.5"}], "}"}]}], "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Thickness", "[", ".01", "]"}], ",", "Red", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"lidm", ",", 
              RowBox[{"10", "-", "by", "-", ".5"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"lidm", ",", 
              RowBox[{"10", "-", "by", "+", "1", "-", ".5"}]}], "}"}],
             ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"10", "-", "by", "+", "1", "-", ".5"}]}], "}"}],
             ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"10", "-", "by", "-", ".5"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"lidm", ",", 
              RowBox[{"10", "-", "by", "-", ".5"}]}], "}"}]}], "}"}], 
          "]"}], ",", "Black", ",", 
         RowBox[{"Thickness", "[", ".005", "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Thickness", "[", ".001", "]"}], ",", 
                 RowBox[{"Line", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1"}], ",", 
                    RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1"}], ",", 
                    RowBox[{"10", "-", "n", "+", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", 
                    RowBox[{"10", "-", "n", "+", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", 
                    RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1"}], ",", 
                    RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}]}], 
                   "}"}], "]"}], ",", 
                 RowBox[{"Thickness", "[", ".003", "]"}], ",", 
                 RowBox[{"Line", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1"}], ",", 
                    RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", 
                    RowBox[{"10", "-", "n", "+", ".5"}]}], "}"}]}], 
                   "}"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "lidm"}], "}"}]}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Row", "@", 
                  RowBox[{"IntegerDigits", "[", " ", 
                   RowBox[{"n", ",", "10"}], "]"}]}], ",", "18"}], 
                "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".5"}], ",", 
                 RowBox[{"10", "-", "n"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", 
                  RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", 
                  RowBox[{"10", "-", "n", "+", ".5"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"10", "-", "n", "+", ".5"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", 
                  RowBox[{"10", "-", "n", "-", ".5"}]}], "}"}]}], 
               "}"}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1", "+", ".2"}], ",", 
                    RowBox[{"10", "-", "n", "+", ".3"}]}], "}"}]}], 
                    "]"}], ",", 
                   RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "-", "1", "+", ".8"}], ",", 
                    RowBox[{"10", "-", "n", "-", ".3"}]}], "}"}]}], 
                    "]"}]}], "}"}], "&"}], "@", 
                RowBox[{"IntegerDigits", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    "IntegerDigits", "[", "multiply", " ", "]"}], "[", 
                    RowBox[{"[", "k", "]"}], "]"}], "n"}], ",", "10", 
                  ",", "2"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "lidm"}], "}"}]}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Row", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "\"\<multiply\>\"", ",", "multiply", ",", 
                 "\"\<by\>\"", ",", "by"}], "}"}], ",", 
               RowBox[{"Spacer", "[", "5", "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"8", ",", "6"}], "}"}]}], "]"}], ",", "20"}], 
          "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Thickness", "[", ".002", "]"}], ",", 
             RowBox[{"Arrowheads", "[", ".025", "]"}], ",", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"k", "+", "6", "+", ".25"}], ",", 
                  RowBox[{"3.5", "+", ".25"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"k", "+", "5", "+", ".25"}], ",", 
                  RowBox[{"3", "-", ".25"}]}], "}"}]}], "}"}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "0", ",", "lidm"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Thickness", "[", ".003", "]"}], ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"k", "+", "6", "-", ".25"}], ",", 
                  RowBox[{"4", "-", ".25"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"k", "+", "6.5", "+", ".25"}], ",", 
                  RowBox[{"4.5", "+", ".25"}]}], "}"}]}], "}"}], 
              "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "+", "6"}], ",", "4.5"}], "}"}]}], 
                    "]"}], ",", 
                   RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"k", "+", "6.5"}], ",", "4"}], "}"}]}], 
                    "]"}]}], "}"}], "&"}], "@", 
                RowBox[{"IntegerDigits", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"IntegerDigits", "[", "multiply", "]"}], 
                    "[", 
                    RowBox[{"[", "k", "]"}], "]"}], "by"}], ",", "10",
                   ",", "2"}], "]"}]}], ",", "18"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "lidm"}], "}"}]}], "]"}], ",", 
         RowBox[{"MapIndexed", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"First", "@", "#2"}], "+", "4", "+", ".25",
                    "+", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "@", 
                    RowBox[{"IntegerDigits", "[", 
                    RowBox[{"multiply", " ", "by"}], "]"}]}], "==", 
                    "lidm"}], ",", "1", ",", "0"}], "]"}]}], ",", 
                  RowBox[{"3", "-", ".75"}]}], "}"}]}], "]"}], ",", 
              "20"}], "]"}], "&"}], ",", 
           RowBox[{"IntegerDigits", "[", 
            RowBox[{"multiply", " ", "by"}], "]"}]}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"Background", "->", "LightGreen"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"ImageSize", "->", 
        RowBox[{"{", 
         RowBox[{"500", ",", "400"}], "}"}]}]}], "]"}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"multiply", ",", "48"}], "}"}], ",", "1", ",", "9999", 
     ",", "1", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"by", ",", "4"}], "}"}], ",", 
     RowBox[{"Range", "[", "10", "]"}]}], "}"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, {3.400106637483055*^9, 3.400106667818686*^9}, {
   3.400106704854162*^9, 3.400106709094426*^9}, {3.400106778375003*^9,
    3.400106780867365*^9}, {3.400106886181074*^9, 
   3.4001069287306004`*^9}, {3.400107127320333*^9, 
   3.400107138316948*^9}, {3.400107208980481*^9, 
   3.400107257918798*^9}, {3.400107352781053*^9, 
   3.4001074666294613`*^9}, {3.4001075252073174`*^9, 
   3.4001075875924892`*^9}, {3.400107720281458*^9, 
   3.40010773968111*^9}, {3.40010777023552*^9, 
   3.400107804764131*^9}, {3.40010788766418*^9, 
   3.4001078954574537`*^9}, {3.4001080045136414`*^9, 
   3.400108035801589*^9}, {3.4001081299766417`*^9, 
   3.400108190414529*^9}, {3.4001082231526327`*^9, 
   3.4001082266852913`*^9}, {3.400108267083787*^9, 
   3.4001082748301773`*^9}, {3.400108784665471*^9, 
   3.4001088452320013`*^9}, {3.400109419509688*^9, 
   3.40010942581684*^9}, {3.4001100605660686`*^9, 
   3.4001101022805357`*^9}, {3.400110137606329*^9, 
   3.4001101380938387`*^9}, {3.40011018411164*^9, 
   3.4001101909796963`*^9}, {3.400110260533353*^9, 
   3.400110264416871*^9}, {3.400110905836212*^9, 
   3.4001109125701637`*^9}, {3.4001109789471283`*^9, 
   3.400110983752334*^9}, {3.400111027255979*^9, 
   3.400111054303677*^9}, {3.400111146049608*^9, 
   3.400111152557356*^9}, 3.400112017966387*^9, 
   3.400112050778961*^9, {3.400112680080971*^9, 
   3.400112700341248*^9}, {3.4001132918510113`*^9, 
   3.400113333820347*^9}, 3.4001146681352043`*^9, 
   3.4001149148614693`*^9, {3.400114951997315*^9, 
   3.400114978934494*^9}, {3.400152259526174*^9, 
   3.400152275716484*^9}, {3.4001523110535803`*^9, 
   3.400152311773851*^9}, {3.4001523425783663`*^9, 
   3.40015243411506*^9}, {3.4001526032933064`*^9, 
   3.400152648563789*^9}, {3.40015269866962*^9, 
   3.4001527349217777`*^9}, 3.4001528417004013`*^9, {
   3.400152874423626*^9, 3.400152878828412*^9}, {3.400154925575141*^9,
    3.400154974710772*^9}, 3.4001550959874372`*^9, {
   3.4001553994008207`*^9, 3.4001554204964848`*^9}, {
   3.4001554551341248`*^9, 3.400155487581675*^9}, 
   3.400155777414391*^9, {3.4001558267967663`*^9, 
   3.400155865574194*^9}, {3.400155904456257*^9, 
   3.400155972655326*^9}, {3.400156100710307*^9, 
   3.40015613448269*^9}, {3.400156166128009*^9, 
   3.400156174747939*^9}, {3.400156768632134*^9, 
   3.400156774810042*^9}, {3.400156881329678*^9, 
   3.400156962405336*^9}, {3.400157169426745*^9, 
   3.4001571851768913`*^9}, {3.400157239028263*^9, 
   3.400157275286379*^9}, {3.400157336677195*^9, 
   3.400157359861207*^9}, {3.40015742776292*^9, 
   3.4001574489480677`*^9}, {3.4001574925826607`*^9, 
   3.400157517845112*^9}, {3.400157554529483*^9, 
   3.4001575611822577`*^9}, {3.4001577416566973`*^9, 
   3.400157751641102*^9}, {3.400157815815133*^9, 
   3.400157847069734*^9}, {3.400157899082685*^9, 
   3.400157938562429*^9}, {3.4001580073941708`*^9, 
   3.400158009668653*^9}, {3.40015820564332*^9, 
   3.400158255521584*^9}, {3.400158718020269*^9, 
   3.400158735850458*^9}, {3.400158944778529*^9, 
   3.400158947047258*^9}, {3.400159024257509*^9, 
   3.400159025838398*^9}, {3.400159152905859*^9, 
   3.400159211049217*^9}, {3.400159291673149*^9, 
   3.400159379062912*^9}, {3.400159448382682*^9, 
   3.4001594588229513`*^9}, {3.400159516108202*^9, 
   3.400159521916106*^9}, {3.400159564089477*^9, 
   3.400159568790332*^9}, 3.400161525636057*^9, {3.400161557048731*^9,
    3.400161557744872*^9}, {3.400161688779731*^9, 
   3.400161711220738*^9}, {3.400161876714089*^9, 
   3.400162022765229*^9}, {3.400162079239126*^9, 
   3.400162106212446*^9}, {3.400268504830698*^9, 3.4002685890671*^9}, 
   3.400269008544764*^9, 3.40026920179661*^9, 
   3.4002692993876133`*^9, {3.40026937919339*^9, 
   3.400269381879222*^9}, {3.4002694762563334`*^9, 
   3.400269553546866*^9}, {3.400269585460648*^9, 
   3.400269591915382*^9}, {3.400269642943638*^9, 
   3.400269647640152*^9}, {3.40026968657482*^9, 
   3.40026972833838*^9}, {3.400270140614932*^9, 
   3.400270147611918*^9}, {3.400270286586722*^9, 
   3.400270310134094*^9}, {3.400270354081997*^9, 
   3.400270424850642*^9}, {3.400271291593829*^9, 
   3.4002713054833593`*^9}, {3.400271405299131*^9, 
   3.400271454260681*^9}, {3.4002714860764017`*^9, 
   3.400271518878003*^9}, {3.4002725059962273`*^9, 
   3.400272616334291*^9}, {3.400272672236565*^9, 
   3.400272718133429*^9}, {3.40027282287181*^9, 
   3.400272858885819*^9}, {3.400272919646071*^9, 
   3.400272961685412*^9}, 3.400273050936698*^9, {3.40027310175712*^9, 
   3.400273150713827*^9}, {3.400273281593665*^9, 
   3.400273302298319*^9}, {3.400273543358631*^9, 
   3.400273589639784*^9}, {3.40027362603444*^9, 
   3.40027362754522*^9}, {3.4002736590592937`*^9, 
   3.4002736595949707`*^9}, {3.400273746616623*^9, 
   3.4002738023782663`*^9}, {3.4002738982178717`*^9, 
   3.400273931727213*^9}, {3.400273967211212*^9, 
   3.4002739719453707`*^9}, {3.400274010546858*^9, 
   3.4002740943814907`*^9}, {3.400274396373736*^9, 
   3.400274421770576*^9}, {3.400274577329105*^9, 
   3.400274581648671*^9}, {3.400274622233047*^9, 
   3.400274693853592*^9}, {3.400274735704645*^9, 
   3.40027474278478*^9}, {3.400274781928296*^9, 
   3.400274891669072*^9}, {3.400275003481773*^9, 
   3.4002750205137987`*^9}, {3.400275156954508*^9, 
   3.400275211541729*^9}, {3.400275248639399*^9, 
   3.40027526972104*^9}, {3.400275316108376*^9, 3.4002753906258*^9}, {
   3.400275425779643*^9, 3.400275489409996*^9}, {3.400275637202259*^9,
    3.400275711916493*^9}, {3.400275797357593*^9, 
   3.400275806041019*^9}, {3.400275909762486*^9, 
   3.400275952681218*^9}, {3.400275988592194*^9, 
   3.4002759888515368`*^9}, {3.4002760221639853`*^9, 
   3.400276050277364*^9}, {3.400277224931279*^9, 
   3.4002772341436033`*^9}, {3.400277271382689*^9, 
   3.4002773112364063`*^9}, {3.400277343039898*^9, 
   3.400277357330523*^9}, 3.400277393081738*^9, {3.400277433670547*^9,
    3.400277466794641*^9}, {3.400277664001183*^9, 
   3.400277672068932*^9}, {3.400277703874762*^9, 
   3.4002777252441473`*^9}, {3.400277760580694*^9, 
   3.400277776345229*^9}, {3.40027798788492*^9, 
   3.400278102069759*^9}, {3.400278139184599*^9, 
   3.400278219603332*^9}, {3.4002782606886187`*^9, 
   3.400278283363173*^9}, {3.400278415823615*^9, 
   3.400278443972612*^9}, {3.4002784970430317`*^9, 
   3.4002784979796267`*^9}, {3.400278674144664*^9, 
   3.400278675411542*^9}, {3.4002787774576063`*^9, 
   3.40027889536887*^9}, {3.400279049459606*^9, 
   3.400279081062214*^9}, {3.4002791255861397`*^9, 
   3.4002791317975597`*^9}, {3.400279228791317*^9, 
   3.400279304717362*^9}, {3.400279915784355*^9, 
   3.400279924440407*^9}, {3.400279955991488*^9, 
   3.400280126361525*^9}, {3.4002804135139627`*^9, 
   3.4002804442194366`*^9}, {3.4002804871613894`*^9, 
   3.400280500397311*^9}, {3.400281344997891*^9, 
   3.400281375320011*^9}, {3.400281434728017*^9, 
   3.400281441873583*^9}, {3.4002821842097263`*^9, 
   3.400282257623136*^9}, {3.400351842121222*^9, 
   3.400351848214972*^9}, 3.7607584224097033`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`by$$ = 4, $CellContext`multiply$$ = 
    48, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`multiply$$], 48}, 1, 9999, 1}, {{
       Hold[$CellContext`by$$], 4}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}},
     Typeset`size$$ = {500., {198., 202.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`multiply$100907$$ = 
    0, $CellContext`by$100908$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`by$$ = 4, $CellContext`multiply$$ = 
        48}, "ControllerVariables" :> {
        Hold[$CellContext`multiply$$, $CellContext`multiply$100907$$, 
         0], 
        Hold[$CellContext`by$$, $CellContext`by$100908$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`lidm$ = Length[
           IntegerDigits[$CellContext`multiply$$]]}, 
        Graphics[{
          Opacity[0.3], 
          Table[{
            Hue[1 - $CellContext`k/($CellContext`lidm$ + 1)], 
            
            Rectangle[{$CellContext`k, -0.5}, {$CellContext`k - 1, 
              9.5}]}, {$CellContext`k, $CellContext`lidm$}], Red, 
          Rectangle[{-1, -0.5}, {0, 9.5}], 
          Opacity[1], 
          Thickness[0.01], Red, 
          
          Line[{{$CellContext`lidm$, 10 - $CellContext`by$$ - 
             0.5}, {$CellContext`lidm$, 10 - $CellContext`by$$ + 1 - 
             0.5}, {0, 10 - $CellContext`by$$ + 1 - 0.5}, {
            0, 10 - $CellContext`by$$ - 0.5}, {$CellContext`lidm$, 
             10 - $CellContext`by$$ - 0.5}}], Black, 
          Thickness[0.005], 
          Table[{
            Table[{
              Thickness[0.001], 
              
              Line[{{$CellContext`k - 1, 10 - $CellContext`n - 
                 0.5}, {$CellContext`k - 1, 10 - $CellContext`n + 
                 0.5}, {$CellContext`k, 10 - $CellContext`n + 
                 0.5}, {$CellContext`k, 10 - $CellContext`n - 
                 0.5}, {$CellContext`k - 1, 10 - $CellContext`n - 
                 0.5}}], 
              Thickness[0.003], 
              Line[{{$CellContext`k - 1, 10 - $CellContext`n - 
                 0.5}, {$CellContext`k, 10 - $CellContext`n + 
                 0.5}}]}, {$CellContext`k, $CellContext`lidm$}], 
            Text[
             Style[
              Row[
               IntegerDigits[$CellContext`n, 10]], 18], {-0.5, 
              10 - $CellContext`n}], 
            
            Line[{{-1, 10 - $CellContext`n - 0.5}, {-1, 
               10 - $CellContext`n + 0.5}, {
              0, 10 - $CellContext`n + 0.5}, {
              0, 10 - $CellContext`n - 0.5}, {-1, 10 - $CellContext`n - 
               0.5}}], 
            Table[
             ({
              Text[
               
               Part[#, 1], {$CellContext`k - 1 + 0.2, 
                10 - $CellContext`n + 0.3}], 
              Text[
               
               Part[#, 2], {$CellContext`k - 1 + 0.8, 
                10 - $CellContext`n - 0.3}]}& )[
              IntegerDigits[Part[
                 
                 IntegerDigits[$CellContext`multiply$$], \
$CellContext`k] $CellContext`n, 10, 
               2]], {$CellContext`k, $CellContext`lidm$}]}, \
{$CellContext`n, 1, 10}], 
          Style[
           Text[
            
            Row[{"multiply", $CellContext`multiply$$, 
              "by", $CellContext`by$$}, 
             Spacer[5]], {8, 6}], 20], 
          Table[{
            Thickness[0.002], 
            Arrowheads[0.025], 
            
            Arrow[{{$CellContext`k + 6 + 0.25, 3.5 + 
               0.25}, {$CellContext`k + 5 + 0.25, 3 - 
               0.25}}]}, {$CellContext`k, 0, $CellContext`lidm$}], 
          Table[{
            Thickness[0.003], 
            
            Line[{{$CellContext`k + 6 - 0.25, 4 - 
               0.25}, {$CellContext`k + 6.5 + 0.25, 4.5 + 0.25}}], 
            Style[
             ({
              Text[
               Part[#, 1], {$CellContext`k + 6, 4.5}], 
              Text[
               Part[#, 2], {$CellContext`k + 6.5, 4}]}& )[
              IntegerDigits[Part[
                 
                 IntegerDigits[$CellContext`multiply$$], \
$CellContext`k] $CellContext`by$$, 10, 2]], 
             18]}, {$CellContext`k, $CellContext`lidm$}], 
          MapIndexed[Style[
            Text[#, {First[#2] + 4 + 0.25 + If[Length[
                  
                  IntegerDigits[$CellContext`multiply$$ \
$CellContext`by$$]] == $CellContext`lidm$, 1, 0], 3 - 0.75}], 20]& , 
           IntegerDigits[$CellContext`multiply$$ $CellContext`by$$]]},
          Background -> LightGreen, PlotRange -> {{-2, 12}, {-1, 10}},
          ImageSize -> {500, 400}]], 
      "Specifications" :> {{{$CellContext`multiply$$, 48}, 1, 9999, 1,
          Appearance -> "Labeled"}, {{$CellContext`by$$, 4}, {1, 2, 3,
          4, 5, 6, 7, 8, 9, 10}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {256., 262.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, {3.400282270095667*^9, 3.400282284071021*^9}, 
   3.400342269038498*^9, {3.400369103084467*^9, 
   3.4003691038813367`*^9}, 3.760758422409985*^9},
 CellID->1992545581]
}, {2}]]