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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     22286,        536]
NotebookOptionsPosition[     20889,        494]
NotebookOutlinePosition[     21233,        509]
CellTagsIndexPosition[     21190,        506]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"ReadList", "[", 
    RowBox[{"\"\<1sr_testdata.txt\>\"", ",", " ", "Word"}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"IntegerDigits", "[", 
         RowBox[{"ToExpression", "[", "#1", "]"}], "]"}], ",", " ", 
        RowBox[{"ToExpression", "[", "#2", "]"}]}], "}"}], "&"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "10", ";;", "2"}], "]"}], "]"}], ",", " ", 
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"2", ";;", "10", ";;", "2"}], "]"}], "]"}]}], "}"}]}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{"ToString", "/@", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "+", 
           RowBox[{"x", "[", 
            RowBox[{"[", 
             RowBox[{"-", "y"}], "]"}], "]"}]}], ")"}], "&"}], "/@", 
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{";;", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "y"}]}], "]"}], "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Length", "[", 
         RowBox[{"FactorInteger", "[", 
          RowBox[{"FromDigits", "[", "x", "]"}], "]"}], "]"}], "}"}], ",", 
       " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Abs", "[", 
           RowBox[{"#", "-", 
            RowBox[{"x", "[", 
             RowBox[{"[", 
              RowBox[{"-", "y"}], "]"}], "]"}]}], "]"}], ")"}], "&"}], "/@", 
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "y"}], "+", "1"}], ";;"}], "]"}], "]"}]}]}], "]"}]}],
     "]"}]}], ";", 
  RowBox[{"ans", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "@@", "#"}], ")"}], "&"}], "/@", 
    RowBox[{"f", "[", "a", "]"}]}]}], ";", 
  RowBox[{"WriteString", "[", 
   RowBox[{"\"\\"", ",", " ", 
    RowBox[{"StringJoin", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\<. \>\"", "<>", 
         RowBox[{"ans", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "<>", "\"\<\\n\>\""}], ")"}], "&"}],
       "/@", 
      RowBox[{"Range", "[", "5", "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.783084269036482*^9, 3.7830843072040057`*^9}, {
  3.7830843626736364`*^9, 3.7830843644086103`*^9}, {3.783084524798728*^9, 
  3.7830845261326427`*^9}, {3.783087011728382*^9, 3.7830870295924883`*^9}, {
  3.7830871329408193`*^9, 3.7830871356538067`*^9}, {3.7830872637660694`*^9, 
  3.78308728944105*^9}, {3.7831578613418827`*^9, 3.7831578705740156`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReadList", "::", "nffil"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"File not found during \
\[NoBreak]\\!\\(ReadList[\\(\\(\\\"1sr_testdata.txt\\\", Word\\)\\)]\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nffil\\\", ButtonNote -> \
\\\"ReadList::nffil\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.783157875166651*^9}],

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

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

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"MapThread", "::", "mptd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Object \[NoBreak]\\!\\($Failed \[LeftDoubleBracket] \
\\(\\(1 ;; 10 ;; 2\\)\\) \[RightDoubleBracket]\\)\[NoBreak] at position {2, \
\[NoBreak]\\!\\(1\\)\[NoBreak]} in \
\[NoBreak]\\!\\(MapThread[\\(\\(\\(\\(\\(\\({\\(\\(IntegerDigits[\\(\\(\
ToExpression[#1]\\)\\)]\\)\\), \\(\\(ToExpression[#2]\\)\\)}\\)\\) &\\)\\), \
\\(\\({\\(\\($Failed \[LeftDoubleBracket] \\(\\(1 ;; 10 ;; 2\\)\\) \
\[RightDoubleBracket]\\)\\), \\(\\($Failed \[LeftDoubleBracket] \\(\\(2 ;; 10 \
;; 2\\)\\) \[RightDoubleBracket]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] has only \
\[NoBreak]\\!\\(0\\)\[NoBreak] of required \[NoBreak]\\!\\(1\\)\[NoBreak] \
dimensions. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/MapThread/mptd\\\", ButtonNote -> \
\\\"MapThread::mptd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.783157875229135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ToExpression", "::", "notstrbox"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(#1\\)\[NoBreak] is not a string or a box. \
ToExpression can only interpret strings or boxes as Mathematica input. \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ToExpression/notstrbox\\\", ButtonNote -> \
\\\"ToExpression::notstrbox\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578752447553`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ToExpression", "::", "notstrbox"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(#2\\)\[NoBreak] is not a string or a box. \
ToExpression can only interpret strings or boxes as Mathematica input. \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ToExpression/notstrbox\\\", ButtonNote -> \
\\\"ToExpression::notstrbox\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578752603755`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "take"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot take positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
through \[NoBreak]\\!\\(10\\)\[NoBreak] in \[NoBreak]\\!\\($Failed\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Part/take\\\", ButtonNote -> \
\\\"Part::take\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578752916255`*^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.7831578753384824`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "span"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(1 ;; \\(\\(\\(\\(-1\\)\\) - \\(\\($Failed \
\[LeftDoubleBracket] \\(\\(2 ;; 10 ;; 2\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\\)\\)\[NoBreak] is not a valid Span \
specification. A Span specification should be 1, 2, or 3 integers separated \
by ;;. (Any of the integers can be omitted or replaced with All.) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::span\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578754322114`*^9}],

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

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

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FromDigits", "::", "nlst"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The expression \[NoBreak]\\!\\($Failed \
\[LeftDoubleBracket] \\(\\(1 ;; 10 ;; 2\\)\\) \[RightDoubleBracket]\\)\
\[NoBreak] is not a list of digits or a string of valid digits. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/FromDigits/nlst\\\", \
ButtonNote -> \\\"FromDigits::nlst\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578755571847`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FactorInteger", "::", "exact"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Argument \[NoBreak]\\!\\(FromDigits[\\(\\($Failed \
\[LeftDoubleBracket] \\(\\(1 ;; 10 ;; 2\\)\\) \[RightDoubleBracket]\\)\\)]\\)\
\[NoBreak] in \[NoBreak]\\!\\(FactorInteger[\\(\\(FromDigits[\\(\\($Failed \
\[LeftDoubleBracket] \\(\\(1 ;; 10 ;; 2\\)\\) \[RightDoubleBracket]\\)\\)]\\)\
\\)]\\)\[NoBreak] is not an exact number. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/exact\\\", ButtonNote -> \
\\\"FactorInteger::exact\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578755884256`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "span"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\(\\(1 - \\(\\($Failed \
\[LeftDoubleBracket] \\(\\(2 ;; 10 ;; 2\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\\) ;; All\\)\[NoBreak] is not a valid Span \
specification. A Span specification should be 1, 2, or 3 integers separated \
by ;;. (Any of the integers can be omitted or replaced with All.) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::span\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578756352987`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(-\\(\\($Failed \
\[LeftDoubleBracket] \\(\\(2 ;; 10 ;; 2\\)\\) \[RightDoubleBracket]\\)\\)\\)\
\[NoBreak] is neither a machine-sized integer nor a list of machine-sized \
integers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/pspec\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.78315787566656*^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.783157875697775*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Join", "::", "heads"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Heads \[NoBreak]\\!\\(Part\\)\[NoBreak] and \
\[NoBreak]\\!\\(List\\)\[NoBreak] at positions \[NoBreak]\\!\\(1\\)\[NoBreak] \
and \[NoBreak]\\!\\(2\\)\[NoBreak] are expected to be the same. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/heads\\\", \
ButtonNote -> \\\"Join::heads\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578757446404`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(1\\)\[NoBreak] \
in \[NoBreak]\\!\\(StringJoin[\\(\\(Join[\\(\\(\\\"($Failed[[1 ;; 10 ;; 2]] + \
$Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; 2]]]])[[$Failed[[1 ;; 10 ;; \
2]][[-$Failed[[2 ;; 10 ;; 2]]]] + (1 ;; -1 - $Failed[[2 ;; 10 ;; 2]])]]\\\", \
\\\"{1}\\\", \\(\\(\\\"Abs[$Failed[[1 ;; 10 ;; 2]] - $Failed[\\\" \[Ellipsis] \
\\\"(1 - $Failed[[2 ;; 10 ;; 2]] ;; All)]]]\\\"\\)\\)\\)\\)]\\)\\)]\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578758071246`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"MapThread", "::", "list"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"List expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(MapThread[\\(\\(\\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\
\\)\\), $Failed}\\)\\)]\\)\\), \
\\(\\(StringJoin[\\(\\(Join[\\(\\(\\\"($Failed[[1 ;; 10 ;; 2]] + $Failed[[1 \
;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; 2]]]])[[$Failed[[1 ;; 10 ;; \
2]][[-$Failed[[2 ;; 10 ;; 2]]]] + (1 ;; -1 - $Failed[[2 ;; 10 ;; 2]])]]\\\", \
\\\"{1}\\\", \\(\\(\\\"Abs[$Failed[[1\\\" \[Ellipsis] \\\"2]] ;; \
All)]]]\\\"\\)\\)\\)\\)]\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/list\\\", \
ButtonNote -> \\\"MapThread::list\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578758383675`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"1. \\\" <> \\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\
\\)\\), $Failed}\\)\\)]\\)\\) <> \\\"\\\\n\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.78315787588523*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StringJoin", "::", "string"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"String expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] \
in \[NoBreak]\\!\\(\\\"1. \\\" <> \\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\
\\)\\), $Failed}\\)\\)]\\)\\) <> \\\"\\\\n\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578759320946`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(StringJoin :: string\\), \
\\\"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.7831578759477153`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(3\\)\[NoBreak] of \
\[NoBreak]\\!\\(MapThread[\\(\\(\\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\\)\
\\), $Failed}\\)\\)]\\)\\), \\(\\(StringJoin[\\(\\(Join[\\(\\(\\\"($Failed[[1 \
;; 10 ;; 2]] + $Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; \
2]]]])[[$Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; 2]]]] + (1 ;; -1 - \
$Failed[[2 ;; 10 ;; 2]])]]\\\", \\\"{1}\\\", \\(\\(\\\"Abs[$Failed[[1\\\" \
\[Ellipsis] \\\"2]] ;; All)]]]\\\"\\)\\)\\)\\)]\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7831578759790463`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(4\\)\[NoBreak] of \
\[NoBreak]\\!\\(MapThread[\\(\\(\\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\\)\
\\), $Failed}\\)\\)]\\)\\), \\(\\(StringJoin[\\(\\(Join[\\(\\(\\\"($Failed[[1 \
;; 10 ;; 2]] + $Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; \
2]]]])[[$Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; 2]]]] + (1 ;; -1 - \
$Failed[[2 ;; 10 ;; 2]])]]\\\", \\\"{1}\\\", \\(\\(\\\"Abs[$Failed[[1\\\" \
\[Ellipsis] \\\"2]] ;; All)]]]\\\"\\)\\)\\)\\)]\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.783157876010227*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(5\\)\[NoBreak] of \
\[NoBreak]\\!\\(MapThread[\\(\\(\\(\\(g[\\(\\({\\(\\(IntegerDigits[$Failed]\\)\
\\), $Failed}\\)\\)]\\)\\), \\(\\(StringJoin[\\(\\(Join[\\(\\(\\\"($Failed[[1 \
;; 10 ;; 2]] + $Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; \
2]]]])[[$Failed[[1 ;; 10 ;; 2]][[-$Failed[[2 ;; 10 ;; 2]]]] + (1 ;; -1 - \
$Failed[[2 ;; 10 ;; 2]])]]\\\", \\\"{1}\\\", \\(\\(\\\"Abs[$Failed[[1\\\" \
\[Ellipsis] \\\"2]] ;; All)]]]\\\"\\)\\)\\)\\)]\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.783157876041478*^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.783157876057064*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.783086938421587*^9, 3.783086975018511*^9}, {
  3.783087071815003*^9, 3.7830872627089825`*^9}}]
},
WindowSize->{707, 505},
WindowMargins->{{86, Automatic}, {Automatic, 51}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 2958, 84, 212, "Input"],
Cell[3540, 108, 493, 11, 21, "Message"],
Cell[4036, 121, 508, 11, 21, "Message"],
Cell[4547, 134, 508, 11, 21, "Message"],
Cell[5058, 147, 1019, 18, 56, "Message"],
Cell[6080, 167, 544, 11, 39, "Message"],
Cell[6627, 180, 544, 11, 39, "Message"],
Cell[7174, 193, 510, 11, 21, "Message"],
Cell[7687, 206, 529, 11, 21, "Message"],
Cell[8219, 219, 680, 13, 56, "Message"],
Cell[8902, 234, 594, 12, 39, "Message"],
Cell[9499, 248, 891, 15, 39, "Message"],
Cell[10393, 265, 567, 11, 21, "Message"],
Cell[10963, 278, 725, 13, 39, "Message"],
Cell[11691, 293, 669, 13, 56, "Message"],
Cell[12363, 308, 591, 12, 39, "Message"],
Cell[12957, 322, 528, 11, 21, "Message"],
Cell[13488, 335, 568, 11, 21, "Message"],
Cell[14059, 348, 841, 15, 73, "Message"],
Cell[14903, 365, 905, 16, 73, "Message"],
Cell[15811, 383, 579, 11, 39, "Message"],
Cell[16393, 396, 582, 11, 39, "Message"],
Cell[16978, 409, 537, 11, 21, "Message"],
Cell[17518, 422, 892, 16, 73, "Message"],
Cell[18413, 440, 890, 16, 73, "Message"],
Cell[19306, 458, 890, 16, 73, "Message"],
Cell[20199, 476, 528, 11, 21, "Message"]
}, Open  ]],
Cell[20742, 490, 143, 2, 31, "Input"]
}
]
*)

(* End of internal cache information *)