(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    263609,       6021]
NotebookOptionsPosition[    257807,       5836]
NotebookOutlinePosition[    258221,       5854]
CellTagsIndexPosition[    258178,       5851]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Assembly File for the Places Gallery", "Title",
 CellChangeTimes->{{3.390322707078125*^9, 3.390322709875*^9}, 
   3.394688847765625*^9}],

Cell[CellGroupData[{

Cell["To do", "Subsubsection",
 CellChangeTimes->{{3.391409903*^9, 3.3914099185625*^9}, {3.39140998228125*^9,
   3.391409983015625*^9}, {3.39474705721875*^9, 3.394747060453125*^9}}],

Cell["Make \"Place\" pages adjust to window size.", "Text",
 CellChangeTimes->{{3.39614470809825*^9, 3.396144725926375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Actions", "Section",
 CellChangeTimes->{{3.3903227483125*^9, 3.390322767125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "SetDirectory", "[", "\"\<C:/drorbn/projects/Gallery/Places\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Make", " ", "/@", " ", "AllPages"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"files", "=", 
   RowBox[{
    RowBox[{"Page", "[", "0", "]"}], "[", "AllFiles", "]"}]}], ";"}], "\n", 
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"OrphanedFiles", " ", "=", " ", 
    RowBox[{"Complement", "[", 
     RowBox[{
      RowBox[{"FileNames", "[", "]"}], ",", " ", 
      RowBox[{"files", "~", "Join", "~", 
       RowBox[{"{", "\"\<Thumbs.db\>\"", "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MissingFiles", " ", "=", " ", 
    RowBox[{"Complement", "[", 
     RowBox[{"files", ",", " ", 
      RowBox[{"FileNames", "[", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
  "}"}]}], "Input",
 CellChangeTimes->{{3.39032295353125*^9, 3.3903229980625*^9}, {
  3.39640646628125*^9, 3.39640648146875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.3964080656875*^9, 3.396408124203125*^9, 3.396408299734375*^9, 
   3.396408362890625*^9, 3.396408591796875*^9, 3.39640879684375*^9, 
   3.3964088803125*^9, 3.39653295075*^9, 3.3965330115625*^9, 
   3.396533207703125*^9, 3.396533845703125*^9, 3.39653396053125*^9, 
   3.396534090203125*^9, 3.396534382421875*^9, 3.396534499734375*^9, 
   3.396557667625*^9, 3.396557770859375*^9, 3.3965592060625*^9, 
   3.39655929071875*^9, 3.396567594875*^9, 3.3965676835*^9, 
   3.396567776171875*^9, 3.39656802471875*^9, 3.39656828659375*^9, 
   3.396568585296875*^9, 3.3966105345*^9, 3.396612966046875*^9, 
   3.396613078*^9, 3.396613134953125*^9, 3.39661331240625*^9, 
   3.396613482328125*^9, 3.39661398909375*^9, 3.396614105671875*^9, 
   3.396614203359375*^9, 3.396614342640625*^9, 3.396614612859375*^9, 
   3.396614679953125*^9, 3.396615005859375*^9, 3.396960633640625*^9, 
   3.39696111025*^9, 3.396961303796875*^9, {3.3969617549375*^9, 
   3.396961760921875*^9}, 3.396961908109375*^9, 3.396961950703125*^9, {
   3.4470248714715*^9, 3.4470248970935*^9}, {3.4470250226495*^9, 
   3.4470250372425003`*^9}, 3.4470252078775*^9, 3.4470256304925003`*^9, 
   3.4470263018325*^9, {3.4487448694890003`*^9, 3.448744889975*^9}, {
   3.448745018705*^9, 3.448745029677*^9}, 3.448745342454*^9, 
   3.448745469385*^9, {3.448745517584*^9, 3.4487455277609997`*^9}, 
   3.448746197849*^9, {3.4487462349709997`*^9, 3.4487462508529997`*^9}, 
   3.448746449212*^9, 3.4487469683199997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"DeleteFile", "[", "OrphanedFiles", "]"}]], "Input",
 CellChangeTimes->{3.39032300415625*^9, 3.3950821101875*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"#", " ", "\[Rule]", " ", "#"}], ")"}], "&"}], " ", "/@", " ", 
  RowBox[{"SortBy", "[", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#", "[", "HTMLFile", "]"}], ")"}], "&"}], " ", "/@", " ", 
       "AllPages"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"StringLength", "[", "#", "]"}], ">", "39"}], "&"}]}], "]"}], 
    ",", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"StringLength", "[", "#", "]"}]}], ")"}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.396960006453125*^9, 3.39696004275*^9}, {
  3.39696007665625*^9, 3.39696010021875*^9}, {3.396960198484375*^9, 
  3.396960252953125*^9}, {3.396960304390625*^9, 3.3969603579375*^9}, {
  3.39696108328125*^9, 3.396961091*^9}, {3.396961441625*^9, 
  3.396961513515625*^9}, {3.396961734921875*^9, 3.396961743234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"HN0708-TayPhuong-Along_the_Road_(1).html\"\>", 
    "\[Rule]", "\<\"HN0708-TayPhuong-Along_the_Road_(1).html\"\>"}], ",", 
   RowBox[{"\<\"HN0708-TayPhuong-Along_the_Road_(2).html\"\>", 
    "\[Rule]", "\<\"HN0708-TayPhuong-Along_the_Road_(2).html\"\>"}], ",", 
   RowBox[{"\<\"HN0708-TayPhuong-Along_the_Road_(3).html\"\>", 
    "\[Rule]", "\<\"HN0708-TayPhuong-Along_the_Road_(3).html\"\>"}], ",", 
   RowBox[{"\<\"HN0708-TayPhuong-Along_the_Road_(4).html\"\>", 
    "\[Rule]", "\<\"HN0708-TayPhuong-Along_the_Road_(4).html\"\>"}], ",", 
   RowBox[{"\<\"Kyoto0705-A_Vertical_Parking_Garage.html\"\>", 
    "\[Rule]", "\<\"Kyoto0705-A_Vertical_Parking_Garage.html\"\>"}], ",", 
   RowBox[{"\<\"Kyoto0705-Conference-Joel_Kamnitzer.html\"\>", 
    "\[Rule]", "\<\"Kyoto0705-Conference-Joel_Kamnitzer.html\"\>"}], ",", 
   RowBox[{"\<\"Kyoto0705-Outside_the_Kyoto_Station.html\"\>", 
    "\[Rule]", "\<\"Kyoto0705-Outside_the_Kyoto_Station.html\"\>"}], ",", 
   RowBox[{"\<\"TJ0707-A_Street_Scene_in_Jixian_(1).html\"\>", 
    "\[Rule]", "\<\"TJ0707-A_Street_Scene_in_Jixian_(1).html\"\>"}], ",", 
   RowBox[{"\<\"TJ0707-A_Street_Scene_in_Jixian_(2).html\"\>", 
    "\[Rule]", "\<\"TJ0707-A_Street_Scene_in_Jixian_(2).html\"\>"}], ",", 
   RowBox[{"\<\"TJ0707-A_Street_Scene_in_Jixian_(3).html\"\>", 
    "\[Rule]", "\<\"TJ0707-A_Street_Scene_in_Jixian_(3).html\"\>"}], ",", 
   RowBox[{"\<\"TJ0707-A_Street_Scene_in_Jixian_(4).html\"\>", 
    "\[Rule]", "\<\"TJ0707-A_Street_Scene_in_Jixian_(4).html\"\>"}], ",", 
   RowBox[{"\<\"TJ0707-A_Street_Scene_in_Jixian_(5).html\"\>", 
    "\[Rule]", "\<\"TJ0707-A_Street_Scene_in_Jixian_(5).html\"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.396960031109375*^9, 3.39696004328125*^9}, 
   3.396960077046875*^9, {3.39696021971875*^9, 3.396960229859375*^9}, {
   3.39696031125*^9, 3.3969603585*^9}, {3.3969610859375*^9, 
   3.396961091640625*^9}, 3.39696132128125*^9, 3.396961449328125*^9, {
   3.39696148521875*^9, 3.396961514046875*^9}, {3.396961728484375*^9, 
   3.396961743578125*^9}, 3.4470256431545*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Images", "Section",
 CellChangeTimes->{{3.390322787203125*^9, 3.390322810125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Aliases", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
     "\"\<Kyoto0705-The_Golden_Pavilion_at_the_Kinkakuji_Temple_(1).html\>\"",
       " ", "\[Rule]", " ", "\"\<Kyoto0705-GoldenPavilion-1.html\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<Kyoto0705-The_Golden_Pavilion_at_the_Kinkakuji_Temple_(2).html\>\"",
       " ", "\[Rule]", " ", "\"\<Kyoto0705-GoldenPavilion-2.html\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<TJ0707-The_Great_Wall_of_China,_Coke_and_Pepsi.html\>\"", 
      "\[Rule]", "\"\<TJ0707-ChinaCokeAndPepsi.html\>\""}], ",", 
     RowBox[{
     "\"\<BJ0708-Construction_in_the_Forbidden_City.html\>\"", "\[Rule]", 
      "\"\<BJ0708-ConstructionAtForbiddenCity.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-TayPhuong-Water_Buffalo_(Chao)_(1).html\>\"", "\[Rule]", 
      "\"\<HN0708-TayPhuong-Chao-1.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-TayPhuong-Water_Buffalo_(Chao)_(2).html\>\"", "\[Rule]", 
      "\"\<HN0708-TayPhuong-Chao-2.html\>\""}], ",", 
     RowBox[{
     "\"\<Kyoto0705-A_Mini-Temple_on_Teramachi_Dori.html\>\"", "\[Rule]", 
      "\"\<Kyoto0705-TempleOnTeramachiDori.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-Shop,_Four_Floors_and_a_Penthouse.html\>\"", "\[Rule]", 
      "\"\<HN0708-Shop4FloorsPenthouse.html\>\""}], ",", 
     RowBox[{
     "\"\<Kyoto0705-Conference-Catharina_Stroppel.html\>\"", "\[Rule]", 
      "\"\<Kyoto0705-Conference-Stroppel.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-HaLong-Views_of_Ha_Long_Bay_(1).html\>\"", "\[Rule]", 
      "\"\<HN0708-HaLong-Views-1.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-HaLong-Views_of_Ha_Long_Bay_(2).html\>\"", "\[Rule]", 
      "\"\<HN0708-HaLong-Views-2.html\>\""}], ",", 
     RowBox[{
     "\"\<HN0708-HaLong-Floating_in_Ha_Long_Bay.html\>\"", "\[Rule]", 
      "\"\<HN0708-HaLong-Floating.html\>\""}], ",", 
     RowBox[{
     "\"\<TJ0707-The_Tianjin_TV_and_Radio_Tower.html\>\"", "\[Rule]", 
      "\"\<TJ0707-TVAndRadioTower.html\>\""}], ",", 
     RowBox[{
     "\"\<BJ0708-Imperial_Ancestral_Temple_(1).html\>\"", "\[Rule]", 
      "\"\<BJ0708-ImperialAncestralTemple-1.html\>\""}], ",", 
     RowBox[{
     "\"\<BJ0708-Imperial_Ancestral_Temple_(2).html\>\"", "\[Rule]", 
      "\"\<BJ0708-ImperialAncestralTemple-2.html\>\""}], ",", 
     RowBox[{
     "\"\<BJ0708-Imperial_Ancestral_Temple_(3).html\>\"", "\[Rule]", 
      "\"\<BJ0708-ImperialAncestralTemple-3.html\>\""}], ",", 
     RowBox[{
     "\"\<BJ0708-Imperial_Ancestral_Temple_(4).html\>\"", "\[Rule]", 
      "\"\<BJ0708-ImperialAncestralTemple-4.html\>\""}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.39696042615625*^9, 3.39696048209375*^9}, 
   3.396960513453125*^9, {3.3969612684375*^9, 3.3969612898125*^9}, {
   3.396961457890625*^9, 3.396961459546875*^9}, {3.396961525609375*^9, 
   3.3969617155625*^9}}],

Cell[BoxData[
 RowBox[{"Page", "[", 
  RowBox[{"\"\<Image\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"Title", " ", "\[Rule]", " ", "\"\<Image title goes here\>\""}], 
   ",", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Defaults", " ", "to", " ", "ImageFile", " ", "with", " ", "the", " ", 
     "extension", " ", "removed"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
   "HTMLName", " ", "\[Rule]", " ", "\"\<The html filename goes here\>\""}], 
   ",", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Defaults", " ", "to", " ", "Title", " ", "with", " ", "spaces", " ", 
     "replaced", " ", "by", " ", "underscores", " ", 
     RowBox[{"and", " ", ".", "html"}], " ", "added"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Text", " ", "\[Rule]", " ", "\"\<Image description\>\""}], ",", 
   " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Defaults", " ", "to", " ", "\"\<\>\""}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "ExtraText", " ", "\[Rule]", " ", 
    "\"\<Some further text for the image page\>\""}], ",", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Defaults", " ", "to", " ", "\"\<\>\""}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "ImageFile", " ", "\[Rule]", " ", "\"\<The image filename goes here\>\""}],
    ",", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Must", " ", "be", " ", 
     RowBox[{"present", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"FullSize", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"w", ",", " ", "h"}], "}"}]}], ",", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Read", " ", "from", " ", "image", " ", "file", " ", "if", " ", "not", 
     " ", "given"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"DisplaySize", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"w", ",", " ", "h"}], "}"}]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Defaults", " ", "to", " ", "640", " ", "by", " ", "640", " ", 
    RowBox[{"(", "max", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.389794482203125*^9, 3.38979448271875*^9}, 
   3.389824130640625*^9, {3.390322787203125*^9, 3.390322810125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "]"}], "  ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Index\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Places\>\""}], ",", 
     RowBox[{
     "FullTitle", "\[Rule]", 
      "\"\<Dror Bar-Natan's Image Gallery: Places\>\""}], ",", 
     RowBox[{"HTMLFile", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<CameraIcon.jpg\>\""}], ",", 
     RowBox[{"FullPrefix", "\[Rule]", "\"\<\>\""}], ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Pages", "[", "\"\<Tokyo0705\>\"", "]"}], ",", " ", 
       RowBox[{"Pages", "[", "\"\<Kyoto0705\>\"", "]"}], ",", " ", 
       RowBox[{"Pages", "[", "\"\<Aarhus-0706\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Pages", "[", "\"\<Tianjin-0707\>\"", "]"}], ",", " ", 
       RowBox[{"Pages", "[", "\"\<Beijing-0708\>\"", "]"}], ",", " ", 
       RowBox[{"Pages", "[", "\"\<Hanoi-0708\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Pages", "[", "\"\<Bogota-0902\>\"", "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.395248515453125*^9, 3.395248536328125*^9}, {
  3.4470243998245*^9, 3.4470244154985*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Bogota-0902\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Bogota, February 2009\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<BO0902-\>\""}], ",", " ", 
     RowBox[{"IconFile", "\[Rule]", "\"\<Bogota-icon.jpg\>\""}], ",", " ", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", " ", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<See also <a href=/~drorbn/Talks/Bogota-0902>Talks: \
Bogota-0902</a>.\>\""}], ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<CityScape\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Bogota City Scape, February 2009.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<CityScape.jpg\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Cow\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota's Parque Nacional, February 15, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150128.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Tenis\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota's Parque Nacional, February 15, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150129.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Dog\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota's Parque Nacional, February 15, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150131.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Exercising\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota's Parque Nacional, February 15, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150132.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Viva La Intifada\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Bogota, February 15, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150133.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Policia\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Bogota, February 15, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150136.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Pigeons\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Bogota, February 15, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150138.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Toothless Smile\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota's Sunday Ciclovia, February 15, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150142.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Buses\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<Bogota, February 15, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2150143.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morwen Thistlethwaite\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On a Bogota rooftop, February 17, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2170144.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Strugle\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<At the Monserrate, February 18, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2180155.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Romance\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<At the Monserrate, February 18, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1024", ",", "768"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2180156.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Pixels\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Bogota from the Monserrate, February 18, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2180158.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Confidence\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<At the Monserrate, February 18, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2180163.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Early Afternoon\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Universidad de Los Andes, February 19, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190165.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Eyes\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Universidad de Los Andes, February 19, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190167.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<El Chorro de Quevedo\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Alexander Cardona, Morwen Thistlethwaite and Stella Huerfano \
in Bogota's birthplace, February 19, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190170.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Payphone\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<La Candelaria, Bogota, February 19, 2009\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190171.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Water\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Botero Museum, La Candelaria, Bogota, February 19, 2009\>\""}],
          ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190174.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Star\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Bogota, February 19, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2190177.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Pages", "[", "\"\<Bogota0902-Bucaramanga\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Pizza Pizza\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Bogota, February 23, 2009\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P2230373.JPG\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4470244233135*^9, 3.4470244367035*^9}, {
   3.4470244685985003`*^9, 3.4470246699545*^9}, 3.4470256089775*^9, {
   3.4470256559084997`*^9, 3.4470256924475*^9}, {3.44874453067*^9, 
   3.448744549449*^9}, 3.448746789151*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Bogota0902-Bucaramanga\>\"", "]"}], " ", "=", 
   " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Bucaramanga Excursion\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<Bucaramanga-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<Bucaramanga-Icon.jpg\>\""}], ",", 
     "  ", 
     RowBox[{
     "ExtraText", " ", "\[Rule]", " ", 
      "\"\<(The photos in the Bucaramanga Excusrsion group are joint with \
Lara Simone Lopez.)\>\""}], ",", " ", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Puente de Boyaca\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Site of the Battle of Boyaca, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200178.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Lara Simone Suarez Lopez\>\""}], 
          ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<At Puente de Boyaca, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200181.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Men\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<At Puente de Boyaca, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200182.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Hat\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<At Puente de Boyaca, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200184.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Villa de Leiva\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200188.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Waterfall (1)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Near Villa de Leiva, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200192.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Waterfall (2)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Near Villa de Leiva, February 20, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2200193.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Hooks\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<Socorro, February 21, 2009\>\""}], 
          ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210194.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Carving Knife\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<Socorro, February 21, 2009\>\""}], 
          ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210196.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Guard Duty\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the main road near San Gil, February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210200.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Troughs\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the main road near San Gil, February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210205.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Dark Glasses\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Above the Chicamocha Canyon, February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210207.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Bucaramanga\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<As seen from the airport access road, way above the city, \
February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210212.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Barrancabermeja\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<The Rio Magdalena in Barrancabermeja, February 21, \
2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3604", ",", "3606"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<OnTheRioMagdalena.jpg\>\""}]}],
          "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Dog\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Outside Barrancabermeja, February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210271.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Children\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Outside Barrancabermeja and along the main road to Medellin, \
February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3500", ",", "3500"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Children.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Cat\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Outside Barrancabermeja, February 21, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2210290.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Savanna (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3005", ",", "2000"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Savanna1.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Savanna (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Savanna2.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Savanna (3)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Savanna3.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Conflict\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the main road between Barrancabermeja and Puerto Boyaca, \
February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2403", ",", "1800"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Roosters.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Cooking (1)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the main road between Barrancabermeja and Puerto Boyaca, \
February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2220315.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Everyone\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Everyone present in a small Cafe in Puerto Boyaca on the Rio \
Magdalena, mid-day, February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3602", ",", "2401"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<MagdalenaCafe.jpg\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Cooking (2)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Under the main-road bridge in Honda, February 22, 2009\>\""}],
           ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P2220364.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Fisherman\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the Rio Magdalena in Honda, February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3004", ",", "2000"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Fishing1.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Fishing (1)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the Rio Magdalena in Honda, February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Fishing2.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Fishing (2)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On the Rio Magdalena in Honda, February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Fishing3.jpg\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Safety\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Climbing from Honda to Villeta, February 22, 2009\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2402", ",", "1600"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<Safety.jpg\>\""}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}], " ", "/.", "  ", 
      RowBox[{
       RowBox[{"Page", "[", "p__", "]"}], " ", "\[RuleDelayed]", " ", 
       RowBox[{"Page", "[", 
        RowBox[{"p", ",", " ", 
         RowBox[{
         "ExtraText", " ", "\[Rule]", " ", 
          "\"\<(All photos in the Bucaramanga Excusrsion group are joint with \
Lara Simone Lopez.)\>\""}]}], "]"}]}]}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4487442507860003`*^9, 3.448744307719*^9}, {
   3.4487443406070004`*^9, 3.448744469524*^9}, {3.448744620984*^9, 
   3.4487448041619997`*^9}, {3.448744841751*^9, 3.4487448569040003`*^9}, {
   3.448745137033*^9, 3.4487453151619997`*^9}, 3.448745422144*^9, {
   3.448746225414*^9, 3.448746226134*^9}, {3.448746414862*^9, 
   3.4487464351940002`*^9}, {3.448746821841*^9, 3.448746947769*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Hanoi-0708\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Hanoi, August 2007\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<HN0708-\>\""}], ",", " ", 
     RowBox[{"IconFile", "\[Rule]", "\"\<Hanoi-icon.jpg\>\""}], ",", " ", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", " ", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<See also <a href=/~drorbn/Talks/Hanoi-0708>Talks: \
Hanoi-0708</a>.\>\""}], ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"mct", "=", 
         RowBox[{"awk", "=", 
          RowBox[{"veg", "=", "0"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Tran Quoc Pagoda\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P8041110.JPG\>\""}]}], "]"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Barber Shop\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041112.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Off to the Market (1)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041116.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Off to the Market (2)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041118.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Cycling\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041119.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Fruit Sellers\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041125.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Construction Work\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Ho Tay (West Lake), August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041126.JPG\>\""}]}], "]"}], 
       ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Dishwashing\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<North of the Citadel, August 4, 2007.\>\""}],
          ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041129.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<1 2 3 4\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Cho Long Bien, August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1600", ",", "1200"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041130.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Shop, Four Floors and a Penthouse\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Near Cho Long Bien, August 4, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041134.JPG\>\""}]}], "]"}], 
       ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Garbage Man\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Tran Nhat Duat, August 4, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8041136.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<By the Lake\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Ho Hoan Kiem, Central Hanoi, August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051139.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Hang Bong Street\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Hanoi, August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3318", ",", "2490"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051146.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<On Guard\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Central Hanoi, August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051147.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051151.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Ho Chi Minh Mausoleum\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051154.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A River of\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Central Hanoi, just south of Ho Tay (West Lake), August 5, \
2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051156.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At work (<*++awk*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3260", ",", "2445"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051158.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Fish\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051161.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Quantum Topology\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051162.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Vegetables (<*++veg*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051164.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051166.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Motorcycle Shower\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051167.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Hanoi Air\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051169.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Coal Man\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051171.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051177.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051178.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051183.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Motorcycle Traffic (<*++mct*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 5, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1600", ",", "1200"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8051186.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At Work (<*++awk*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 7, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8071187.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Taxi\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<A motorcycle-taxi driver awaiting passengers, August 7, \
2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8071188.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Restaurant\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 7, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8071189.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Vegetables (<*++veg*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 7, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8071193.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Market\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 7, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8071196.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Conference Lunch\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 8, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081198.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Pages", "[", "\"\<Hanoi0708-TayPhuong\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Pages", "[", "\"\<Hanoi0708-HaLong\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Ngoc Son\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<AKA the Jade Mound Temple, August 13, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8131371.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Incense\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near Den Ngoc Son (Jade Mound Temple), August 13, 2007.\>\""}],
          ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8131375.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Kill\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Southeast of Hanoi, August 13, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8131378.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Travel\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Southeast of Hanoi, August 13, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8131385.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Yellow\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Southeast of Hanoi, August 13, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8131386.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Rural Streets\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Southeast of Hanoi, August 13, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{
         "ImageFile", "\[Rule]", "\"\<RuralStreetsNearHanoi.jpg\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Crossing the Red River\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Southeast of Hanoi, August 13, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{
         "ImageFile", "\[Rule]", "\"\<CrossingTheRedRiver.jpg\>\""}]}], 
        "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.395010892609375*^9, 3.395011132578125*^9}, {
   3.39501119371875*^9, 3.395011225734375*^9}, {3.395011282703125*^9, 
   3.395011293078125*^9}, {3.39503978328125*^9, 3.395039820125*^9}, {
   3.395040254046875*^9, 3.395040255140625*^9}, {3.395082603640625*^9, 
   3.395082650609375*^9}, {3.3950827433125*^9, 3.39508276803125*^9}, 
   3.39508293971875*^9, 3.395083638671875*^9, {3.395084192265625*^9, 
   3.3950842168125*^9}, {3.395248206265625*^9, 3.395248270375*^9}, {
   3.39524838246875*^9, 3.395248445578125*^9}, {3.39566262375*^9, 
   3.395662649890625*^9}, {3.395719978*^9, 3.39572013103125*^9}, {
   3.3957203801875*^9, 3.395720416*^9}, {3.3957251221875*^9, 
   3.39572512475*^9}, {3.395868948*^9, 3.39586896009375*^9}, {
   3.39613345228575*^9, 3.39613348172325*^9}, {3.396133690942*^9, 
   3.396133739207625*^9}, {3.396134851692*^9, 3.39613485366075*^9}, {
   3.396135788488875*^9, 3.396135792395125*^9}, {3.396135843207625*^9, 
   3.396135843988875*^9}, {3.396144675738875*^9, 3.3961446896295*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Hanoi0708-HaLong\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Ha Long Bay\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<HaLong-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<HaLong-icon.jpg\>\""}], ",", "  ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Chisel\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On the road to Ha Long Bay, August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<MarbleWorks.jpg\>\""}]}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Jewellery\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On the road to Ha Long Bay, August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8111249.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Shop-Workshop\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On the road to Ha Long Bay, August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8111254.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Eye\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8121366.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Infestation\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 11, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8111291.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Cave\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 11, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8111295.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Temple\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Cat Ba Island, August 11, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8111346.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Floating in Ha Long Bay\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<FloatingInHaLong.jpg\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Views of Ha Long Bay (1)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<HaLongViews_1.jpg\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Views of Ha Long Bay (2)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 11-12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<HaLongViews_2.jpg\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning Fog\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8121348.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Graphing Functions\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 12, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8121358.JPG\>\""}], ",", " ", 
         RowBox[{
         "ExtraText", " ", "\[Rule]", " ", 
          "\"\<Sorry for the rain drop on the lens.\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.3957249165625*^9, 3.395724988*^9}, {3.3957250324375*^9, 
  3.395725095203125*^9}, {3.3957251344375*^9, 3.39572529203125*^9}, {
  3.39572551640625*^9, 3.395725521640625*^9}, {3.39572559646875*^9, 
  3.39572559775*^9}, {3.395725976484375*^9, 3.395726054234375*^9}, {
  3.395726140015625*^9, 3.39572616271875*^9}, {3.395726415484375*^9, 
  3.39572644471875*^9}, {3.395726519453125*^9, 3.39572652021875*^9}, {
  3.39572663634375*^9, 3.3957266481875*^9}, {3.395726761453125*^9, 
  3.395726771546875*^9}, {3.395726817953125*^9, 3.395726829140625*^9}, {
  3.395726872109375*^9, 3.395726894359375*^9}, {3.39586923990625*^9, 
  3.395869334515625*^9}, {3.395869459171875*^9, 3.39586945953125*^9}, {
  3.396134604582625*^9, 3.396134702707625*^9}, {3.396134740801375*^9, 
  3.396134836270125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Hanoi0708-TayPhuong\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Chao Tay Phuong\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<TayPhuong-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<TayPhuong-icon.jpg\>\""}], ",", " ", 
     RowBox[{"ExtraFiles", " ", "\[Rule]", " ", 
      RowBox[{"{", "\"\<TayPhuongMap.jpg\>\"", "}"}]}], ",", 
     RowBox[{
     "TopText", " ", "\[Rule]", " ", 
      "\"\<<p>On August 10, 2007, Jana Comstock, Scott Morrison, Dylan \
Thurston and I rode west out of Hanoi to chao Tay Phuong (Tay Phuong pagoda) \
on a bicycle, bicycle, bicycle and a moped (see <a href=#map>map</a> \
below).\>\""}], ",", 
     RowBox[{
     "ExtraText", " ", "\[Rule]", " ", 
      "\"\<<center><a name=map><img src=TayPhuongMap.jpg></a></center>\>\""}],
      ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"fw", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Water Buffalo (Chao) (1)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P8081199.JPG\>\""}]}], "]"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Water Buffalo (Chao) (2)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081200.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Along the Road (1)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081204.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Along the Road (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081205.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Men and Cow\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081209.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Fishing (1)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081210.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Fishing (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081213.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Along the Road (3)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081214.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081215.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Pagoda (1)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<With Scott and Jana, August 10, 2007.\>\""}],
          ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081217.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Laundary\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<At chao Tay Phuong, August 10, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081221.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Pagoda (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081223.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<100 Hands\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<At chao Tay Phuong, August 10, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081226.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Paka Paka (1)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Near chao Tay Phuong, August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081229.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081231.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081235.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Along the Road (4)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081236.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Paka Paka (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081240.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<1 2 3 4 5\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Photo by Scott Morrison: Phung Xa, August 10, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1600", ",", "1200"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<Morrison-P8080079.JPG\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081241.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081243.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Ride Back\>\""}], ",", 
         RowBox[{
         "ExtraText", "\[Rule]", 
          "\"\<Photo by Scott Morrison: Dror, Dylan, Jana a bit south of Quoc \
Oai, August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2272", ",", "1704"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<Morrison-P8080086.JPG\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Swimming\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081244.JPG\>\""}]}], "]"}], 
       ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Field Work (<*++fw*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 10, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8081245.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Photo by Dylan Thurston: Southwest of Hanoi, August 10, \
2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3072", ",", "2304"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<ThurstonD-img_2607.jpg\>\""}]}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Us\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Dror, Scott, Jana and Dylan, Southwest Hanoi, August 10, 2007.\
\>\""}], ",", 
         RowBox[{
         "ExtraText", "\[Rule]", 
          "\"\<Photos by Dylan and Dror, stitching by Dylan.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"4568", ",", "2312"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<ThurstonD-Panorama.jpg\>\""}], 
         ",", " ", 
         RowBox[{
         "IconFile", " ", "\[Rule]", " ", 
          "\"\<ThurstonD-Panorama-Icon.jpg\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.3957249165625*^9, 3.395724988*^9}, {3.3957250324375*^9, 
  3.395725095203125*^9}, {3.3957251344375*^9, 3.39572529203125*^9}, {
  3.39572551640625*^9, 3.395725521640625*^9}, {3.39572559646875*^9, 
  3.39572559775*^9}, {3.395725976484375*^9, 3.395726054234375*^9}, {
  3.395726140015625*^9, 3.39572616271875*^9}, {3.395726415484375*^9, 
  3.39572644471875*^9}, {3.395726519453125*^9, 3.39572652021875*^9}, {
  3.39572663634375*^9, 3.3957266481875*^9}, {3.395726761453125*^9, 
  3.395726771546875*^9}, {3.395726817953125*^9, 3.395726829140625*^9}, {
  3.395726872109375*^9, 3.395726894359375*^9}, {3.39586923990625*^9, 
  3.395869334515625*^9}, {3.395869459171875*^9, 3.39586945953125*^9}, {
  3.396408111640625*^9, 3.396408112171875*^9}, {3.39655751609375*^9, 
  3.396557529984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Beijing-0708\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Beijing Stopover\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<BJ0708-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"Banner", "\[Rule]", " ", 
      RowBox[{"ExtractDataCell", "[", "\"\<Beijing-0708 Banner\>\"", "]"}]}], 
     ",", " ", 
     RowBox[{"IconFile", "\[Rule]", "\"\<BJ0708-icon.jpg\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<Beijing is where <a class=extarnal \
href=http://www.math.columbia.edu/~dpt/>Dylan</a> and I spent our time \
between <a href=TJ0707-index.html>Tianjin</a> and <a \
href=HN0708-index.html>Hanoi</a>.\>\""}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Changu He Park\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 1, 2007\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8011074.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Imperial Ancestral Temple (1)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 1, 2007\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8011077.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Imperial Ancestral Temple (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 1, 2007\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8011078.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Imperial Ancestral Temple (3)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 1, 2007\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8011080.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Imperial Ancestral Temple (4)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 1, 2007\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8011083.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Construction in Beijing\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3020", ",", "2570"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021092.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Construction in the Forbidden City\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3265", ",", "2450"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021095.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<In the Forbidden City\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2540", ",", "2465"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021099.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<At the White Dagoba on Jade Island\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<WhiteDagoba.html\>\""}], ",", 
         RowBox[{
         "ExtraText", "\[Rule]", 
          "\"\<This, of course, is the universal cover of the torus, \
truncated a bit due to the physical limitations of the medium.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021100.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<In the Yongan Temple\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{
         "ExtraText", "\[Rule]", 
          "\"\<More on <a \
href=http://katlas.org/wiki/7_4>7<sub>4</sub>.</a>\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1536", ",", "2048"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021103.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<On the Bei Hai Lake\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<August 2, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P8021105.JPG\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.395010892609375*^9, 3.395011132578125*^9}, {
   3.39501119371875*^9, 3.395011225734375*^9}, {3.395011282703125*^9, 
   3.395011293078125*^9}, {3.39503978328125*^9, 3.395039820125*^9}, {
   3.395040254046875*^9, 3.395040255140625*^9}, {3.395082603640625*^9, 
   3.395082650609375*^9}, {3.3950827433125*^9, 3.39508276803125*^9}, 
   3.39508293971875*^9, 3.395083638671875*^9, {3.395084192265625*^9, 
   3.3950842168125*^9}}],

Cell["\<\
Data Cell Beijing-0708 Banner:
  <td><table width=240 cellpadding=0 cellspacing=0>
        <tr><td align=center><font size=-2>&nbsp;</font></td></tr>
        <tr><td align=center valign=middle height=180>
          <a \
href=\"<#HTMLFile#>\">&gt;&gt;&gt;&nbsp;Beijing&nbsp;&gt;&gt;&gt;<br><font \
size=-2>11 images</font></a>
        </td></tr>
    </table></td>\
\>", "Text",
 CellChangeTimes->{{3.39140846615625*^9, 3.391408469234375*^9}, {
  3.3914085169375*^9, 3.391408518890625*^9}, {3.39503988109375*^9, 
  3.39503992371875*^9}, {3.395039956234375*^9, 3.39504003753125*^9}, {
  3.395040667640625*^9, 3.395040707484375*^9}, {3.395139709578125*^9, 
  3.395139739*^9}, {3.396295463640625*^9, 3.396295503734375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Tianjin-0707\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Tianjin, July 2007\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<TJ0707-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<TJ0707-icon.jpg\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<See also <a href=/~drorbn/Talks/Tianjin-0707>Talks: \
Tianjin-0707</a>.\>\""}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<The Tianjin TV and Radio Tower\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 26, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1200", ",", "1600"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7260990.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Foot of the Wall (1)\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<The Great Wall at Huangya Pass, July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7280992.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Foot of the Wall (2)\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<The Great Wall at Huangya Pass on foggy July 28, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7280993.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Wall of Mathematicians\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<The Great Wall at Huangya Pass, July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1024", ",", "768"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281002.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Top of the Wall (1)\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Qiang Zhang and Dylan Thurston way up on the Great Wall at \
Huangya Pass, July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281004.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Top of the Wall (2)\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<Way up on the Great Wall at Huangya Pass, July 28, \
2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281009.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Foot of the Wall (3)\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<The Great Wall at Huangya Pass, July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281014.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<The Great Wall of China, Coke and Pepsi\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<The Great Wall at Huangya Pass, July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3200", ",", "2400"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<ChinaCokePepsi.jpg\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene in Jixian (1)\>\""}],
          ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1024", ",", "768"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281016.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene in Jixian (2)\>\""}],
          ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281018.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene in Jixian (3)\>\""}],
          ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 28, 2007.\>\""}], ",", " ", 
         RowBox[{
         "ExtraText", " ", "\[Rule]", " ", 
          "\"\<<a class=external \
href=\\\"http://www.cs.rutgers.edu/~ccshan/\\\">Ken</a> says that the sign \
says \\\"going-out-of-business sale\\\".\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281019.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene in Jixian (4)\>\""}],
          ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 28, 2007.\>\""}], ",", " ", 
         RowBox[{
         "ExtraText", " ", "\[Rule]", " ", 
          "\"\<<a class=external \
href=\\\"http://www.cs.rutgers.edu/~ccshan/\\\">Ken</a> says that the sign \
says \\\"supermarket entrance\\\".\>\""}], ",", " ", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1600", ",", "1200"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281021.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Street Scene in Jixian (5)\>\""}],
          ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 28, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7281025.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (1)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301030.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (2)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1600", ",", "1200"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301033.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (3)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301036.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (4)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2048", ",", "1536"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301038.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (5)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301041.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Morning in Tianjin (6)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<<a href=http://www.cim.nankai.edu.cn/nim_e/index.htm>The Chern \
Institue</a>, July 30, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7301045.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Queen of Heaven Palace\>\""}], 
         ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At the Ancient Culture Street, July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311048.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<I got him first\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At the Ancient Culture Street, July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311057.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Street Calligraphy (1)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At the Ancient Culture Street, July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311060.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Street Calligraphy (2)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At the Ancient Culture Street, July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311062.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Street Calligraphy (3)\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At the Ancient Culture Street, July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311066.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<The Ancient Culture Street\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311068.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Tongbei Lu\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<July 31, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P7311072.JPG\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.394684463734375*^9, 3.39468448196875*^9}, {
   3.394684550734375*^9, 3.39468466734375*^9}, 3.394684838953125*^9, {
   3.394684987609375*^9, 3.394685017171875*^9}, {3.3946892866875*^9, 
   3.3946894064375*^9}, {3.39468961871875*^9, 3.394689620890625*^9}, {
   3.394746804859375*^9, 3.394746819375*^9}, {3.394747227296875*^9, 
   3.394747239328125*^9}, {3.394752813171875*^9, 3.3947528768125*^9}, {
   3.39475291290625*^9, 3.394752998625*^9}, {3.39488657159375*^9, 
   3.3948866046875*^9}, {3.3949510416875*^9, 3.3949510665625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Aarhus-0706\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<&Aring;rhus, June 2007\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<DK0706-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<DK0706-icon.jpg\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<See also <a href=/~drorbn/Talks/Aarhus-0706>Talks: \
Aarhus-0706</a>.\>\""}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*k=1*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 14, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6140499.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 14, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6140500.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 14, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6140505.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 14, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6140506.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 14, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6140507.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 16, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6160510.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 16, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6160515.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Danish Garbage Chute\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", "\"\<Downtown &Aring;rhus, June 17, 2007.\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170518.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Botanisk Have\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170519.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*dgb=1*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170522.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170524.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<A Day Out, Danish Style\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<Botanisk Have, June 17, 2007.\>\""}],
          ",", "\[IndentingNewLine]", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<A_Day_Out.html\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170527.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170528.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170529.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170533.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170535.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170536.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170539.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170542.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170544.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170545.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Den Gamle By (<*++dgb*>)\>\""}], 
         ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3560", ",", "2670"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170548.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 17, 2007.\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6170552.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Reshetikhin and Turaev\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<At &Aring;rhus University, June 18, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3000", ",", "2250"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6180559.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At &Aring;rhus University (<*aau=1*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 18, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6180562.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At &Aring;rhus University (<*++aau*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 18, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6180568.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At &Aring;rhus University (<*++aau*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 18, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6180569.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At &Aring;rhus University (<*++aau*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 18, 2007.\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6180572.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 22, 2007.\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6220578.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 22, 2007.\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", " ", "3648"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6220583.JPG\>\""}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<Downtown &Aring;rhus (<*++k*>)\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<June 22, 2007.\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P6220585.JPG\>\""}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.391503410484375*^9, 3.391503595109375*^9}, {
   3.391503831109375*^9, 3.391503845921875*^9}, 3.391503994140625*^9, 
   3.391504370625*^9, {3.391504443265625*^9, 3.391504447140625*^9}, {
   3.39150517184375*^9, 3.391505205984375*^9}, {3.391506224796875*^9, 
   3.391506247265625*^9}, {3.39154220925*^9, 3.391542242125*^9}, {
   3.3915422773125*^9, 3.391542289578125*^9}, {3.39154232490625*^9, 
   3.391542336*^9}, {3.391542374453125*^9, 3.391542375203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705-Kamo\>\"", "]"}], " ", "=", " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Kamo-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{"IconFile", "\[Rule]", "\"\<Kamo-icon.jpg\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<Along the Kamo River (<*k=1*>)\>\""}], ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<<*k*>.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 10, 2007.\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5100060.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<Along the Kamo River (<*++k*>)\>\""}], ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<<*k*>.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 10, 2007.\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5100061.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (3)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<3.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007.\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120125.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (4)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<4.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007.\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120146.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1280", ",", "960"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (5)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<5.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170225.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (6)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<6.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170267.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (7)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<7.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2340", ",", "1755"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170271.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (8)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<8.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1705", ",", "1280"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170278.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along the Kamo River (9)\>\""}], 
          ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<9.html\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170304.JPG\>\""}]}], "]"}]}],
        "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705-Conference\>\"", "]"}], " ", "=", 
    " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<The Conference\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Conference-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{
      "IconFile", "\[Rule]", "\"\<Kyoto0705-Conference-icon.jpg\>\""}], ",", 
      RowBox[{
      "ExtraText", "\[Rule]", 
       "\"\<See also <a href=/~drorbn/Talks/Kyoto-0705>Talks: Kyoto-0705</a>.\
\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Aaron Lauda\>\""}], ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<Lauda.html\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<At the Kyoto University Mathematics Department, May 11, 2007.\
\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5110063.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<RIMS\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", "\"\<University of Kyoto, May 14, 2007\>\""}], 
          ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5140193.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Lev Rozansky\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS May 14, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5140197.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Sergei Gukov\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS May 14, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1280", ",", "960"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5140201.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Marko Stosic\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS May 15, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5150204.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Joel Kamnitzer\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS, May 16 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5160212.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Catharina Stroppel\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS, May 16 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5160220.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Peter Ozsvath\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<RIMS, May 18 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1824", ",", "1368"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5180338.JPG\>\""}]}], "]"}]}],
        "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705-Shimogamo\>\"", "]"}], " ", "=", " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Shimogamo-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{"IconFile", "\[Rule]", "\"\<Shimogamo-icon.jpg\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<A crick near Shimogamo Jinja\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120069.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<Crick.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<A tree near Shimogamo Jinja\>\""}],
           ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"IconFile", "\[Rule]", "\"\<P5120070_icon.jpg\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120070.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<Tree.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120071.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<1.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120074.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<2.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (3)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120075.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<3.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (4)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120076.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<4.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (5)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120079.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<5.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (6)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120082.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<6.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (7)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120084.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<7.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (8)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120085.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<8.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (9)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"IconFile", "\[Rule]", "\"\<P5120086_icon.jpg\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120086.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<9.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (10)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120087.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<10.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shimogamo Jinja (11)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120088.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<11.html\>\""}]}], 
         "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705-Daitokuji\>\"", "]"}], " ", "=", " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Daitokuji-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{"IconFile", "\[Rule]", "\"\<Daitokuji-icon.jpg\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Near the Daitokuji Temple\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120094.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<Near.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<1.html\>\""}], ",", 
          RowBox[{
          "ExtraText", "\[Rule]", 
           "\"\<The poor scooter on the bottom right of the picture was mine \
until an hour or so later, when a kind person relieved it of its loneliness \
while I was having lunch. This is the only remaining picture of a close \
friend who served me well for over a year.\>\""}], ",", 
          RowBox[{"IconFile", "\[Rule]", "\"\<P5120096_icon.jpg\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120096.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120099.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<2.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (3)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120101.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<3.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (4)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120104.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<4.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (5)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120105.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<5.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (6)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120106.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<6.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (7)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120109.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<7.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (8)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120110.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<8.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (9)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120111.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<9.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Daitokuji Temple (10)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120117.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<10.html\>\""}]}], 
         "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705-Fushimi\>\"", "]"}], " ", "=", " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<The Fushimi-Inari Shrine\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Fushimi-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{"IconFile", "\[Rule]", "\"\<Fushimi-icon.jpg\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<Near the Fushimi-Inari Shrine\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170308.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<Near.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (1)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170310.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<1.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (2)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170311.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<2.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (3)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170312.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<3.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (4)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170313.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<4.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (5)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170315.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<5.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (6)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170317.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<6.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (7)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170318.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<7.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (8)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170321.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<8.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (9)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170330.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<9.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (10)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170332.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<10.html\>\""}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<At the Fushimi-Inari Shrine (11)\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170333.JPG\>\""}], ",", " ", 
          RowBox[{"HTMLName", " ", "\[Rule]", " ", "\"\<11.html\>\""}]}], 
         "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Pages", "[", "\"\<Kyoto0705\>\"", "]"}], " ", "=", " ", 
    RowBox[{"Page", "[", 
     RowBox[{"\"\<Place\>\"", ",", 
      RowBox[{"Title", "\[Rule]", "\"\<Kyoto, May 2007\>\""}], ",", 
      RowBox[{"Prefix", "\[Rule]", "\"\<Kyoto0705-\>\""}], ",", 
      RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
      RowBox[{"IconFile", "\[Rule]", "\"\<Kyoto0705-icon.jpg\>\""}], ",", 
      RowBox[{
      "ExtraText", "\[Rule]", 
       "\"\<See also <a href=/~drorbn/Talks/Kyoto-0705>Talks: Kyoto-0705</a>.\
\>\""}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Pages", "[", "\"\<Kyoto0705-Kamo\>\"", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Pages", "[", "\"\<Kyoto0705-Conference\>\"", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Pages", "[", "\"\<Kyoto0705-Shimogamo\>\"", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Pages", "[", "\"\<Kyoto0705-Daitokuji\>\"", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Pages", "[", "\"\<Kyoto0705-Fushimi\>\"", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Along Higashiojidori Street\>\""}],
           ",", 
          RowBox[{"HTMLName", "\[Rule]", "\"\<Higashiojidori.html\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<In a small temple along Higashiojidori Street, May 11, \
2007.\>\""}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5110064.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Rozansky at Yasaka Jinja\>\""}], 
          ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Lev Rozansky at the Yasaka Jinja shrine, May 11, 2007.\>\""}],
           ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5110065.JPG\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", "\"\<A Mini-Temple on Teramachi Dori\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 11, 2007.\>\""}], ",", 
          RowBox[{"IconFile", "\[Rule]", "\"\<P5110067_icon.jpg\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5110067.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Imamiya Shrine (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120091.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Imamiya Shrine (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120092.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Imamiya Shrine (3)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120093.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", 
           "\"\<The Golden Pavilion at the Kinkakuji Temple (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120118.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Kinkakuji Temple (1)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120119.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{
          "Title", "\[Rule]", 
           "\"\<The Golden Pavilion at the Kinkakuji Temple (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120120.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Kinkakuji Temple (2)\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 12, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5120121.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<A Vertical Parking Garage\>\""}], 
          ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<On Kawaramachi, near its intersection with Imadegawa. May 13, \
2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5130184.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<A Thin Building\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", "\"\<Off Kawaramachi St., May 13, 2007\>\""}], 
          ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5130186.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<On the Takasegawa River\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 13, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5130189.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<A Kyoto Dollar Store\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<May 13, 2007. Note the openning hours!\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3072", ",", "2304"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01200.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Some Dense Housing\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", 
           "\"\<Near the University of Kyoto, May 14, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5140192.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shogetsu (1)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", "\"\<An okonomiyaki place, May 15, 2007\>\""}], 
          ",", 
          RowBox[{
          "ExtraText", "\[Rule]", 
           "\"\<Scott Morrison, Sabin Cautis, Joel Kamnitzer, Lev Rozansky \
and Hana Wachs.\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5150205.JPG\>\""}]}], "]"}], 
        ",", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Shogetsu (2)\>\""}], ",", 
          RowBox[{
          "Text", "\[Rule]", "\"\<An okonomiyaki place, May 15, 2007\>\""}], 
          ",", 
          RowBox[{
          "ExtraText", "\[Rule]", 
           "\"\<For the lack of a better description, ``okonomiyaki'' are \
cabbage pancakes with lots of extras. Scott Morrison, Sabin Cautis, Joel \
Kamnitzer, an unnamed waitress, Lev Rozansky and Hana Wachs\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5150209.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<At the Tofukuji Temple\>\""}], ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170334.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Near the Tofukuji Temple\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 17, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5170336.JPG\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Outside the Kyoto Station\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 19, 2007\>\""}], ",", 
          RowBox[{
          "ExtraText", "\[Rule]", 
           "\"\<With a reflection of the Kyoto Tower\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5190342.JPG\>\""}]}], "]"}], 
        ",", 
        RowBox[{"Page", "[", 
         RowBox[{"\"\<Image\>\"", ",", 
          RowBox[{"Title", "\[Rule]", "\"\<Inside the Kyoto Station\>\""}], 
          ",", 
          RowBox[{"Text", "\[Rule]", "\"\<May 19, 2007\>\""}], ",", 
          RowBox[{"FullSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
          RowBox[{"ImageFile", "\[Rule]", "\"\<P5190343.JPG\>\""}]}], "]"}]}],
        "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Pages", "[", "\"\<Tokyo0705\>\"", "]"}], " ", "=", " ", 
   RowBox[{"Page", "[", 
    RowBox[{"\"\<Place\>\"", ",", 
     RowBox[{"Title", "\[Rule]", "\"\<Tokyo, May 2007\>\""}], ",", 
     RowBox[{"Prefix", "\[Rule]", "\"\<Tokyo0705-\>\""}], ",", 
     RowBox[{"HTMLName", "\[Rule]", "\"\<index.html\>\""}], ",", 
     RowBox[{"IconFile", "\[Rule]", "\"\<Tokyo0705-icon.jpg\>\""}], ",", 
     RowBox[{
     "ExtraText", "\[Rule]", 
      "\"\<See also <a href=/~drorbn/Talks/TiTech-070508>Talks: \
TiTech-070508</a>.\>\""}], ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Homeless at Ueno Station\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<HomelessAtUeno.html\>\""}], ",", 
         RowBox[{
         "Text", "\[Rule]", 
          "\"\<On my first evening in Tokyo, May 7, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01188.jpg\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1024", ",", "768"}], "}"}]}]}], "]"}], ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Painting at a Ginza park\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<PaintingAtGinza.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 7, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01189.jpg\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3072", ",", "2304"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Lunch at a Ginza park\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<LunchAtGinza.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 7, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01193.jpg\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3072", ",", "2304"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Shinjuku\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<Shinjuku.html\>\""}], ",", " ", 
         RowBox[{"Text", "\[Rule]", "\"\<May 7, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01194.jpg\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3072", ",", "2304"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Club ads in Shinjuku\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<AdsInShinjuku.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 7, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<DSC01196.jpg\>\""}], ",", 
         RowBox[{"DisplaySize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"480", ",", "640"}], "}"}]}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2304", ",", "3072"}], "}"}]}]}], "]"}], ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", "\"\<The Tokyo Institute of Technology\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<TiTech.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 8, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5080014.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At the Tokyo Institute of Technology (1)\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<TiTech-1.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 8, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5080021.JPG\>\""}], ",", 
         RowBox[{"IconFile", "\[Rule]", "\"\<P5080021_icon.jpg\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2736", ",", "3648"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{
         "Title", "\[Rule]", 
          "\"\<At the Tokyo Institute of Technology (2)\>\""}], ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<TiTech-2.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 8, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5080023.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Window cleaning near Akasuka\>\""}],
          ",", 
         RowBox[{
         "HTMLName", "\[Rule]", "\"\<AkasukaWindowCleaning.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090049.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Near the Akasuka Shrine (1)\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<NearAkasuka-1.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090050.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<Near the Akasuka Shrine (2)\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<NearAkasuka-2.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090053.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1280", ",", "960"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Akasuka Shrine (1)\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<Akasuka-1.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090055.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Akasuka Shrine (2)\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<Akasuka-2.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090057.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Page", "[", 
        RowBox[{"\"\<Image\>\"", ",", 
         RowBox[{"Title", "\[Rule]", "\"\<At the Akasuka Shrine (3)\>\""}], 
         ",", 
         RowBox[{"HTMLName", "\[Rule]", "\"\<Akasuka-3.html\>\""}], ",", 
         RowBox[{"Text", "\[Rule]", "\"\<May 9, 2007.\>\""}], ",", 
         RowBox[{"ImageFile", "\[Rule]", "\"\<P5090059.JPG\>\""}], ",", 
         RowBox[{"FullSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"3648", ",", "2736"}], "}"}]}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.389794432890625*^9, 3.389794472234375*^9}, {
  3.389796047453125*^9, 3.389796048*^9}, {3.389824142375*^9, 
  3.3898241849375*^9}, {3.39032278721875*^9, 3.390322810140625*^9}, {
  3.390322894859375*^9, 3.390322898*^9}, {3.391433909078125*^9, 
  3.39143394625*^9}, {3.39150106728125*^9, 3.39150106746875*^9}, {
  3.391503652265625*^9, 3.391503666*^9}, {3.391505226203125*^9, 
  3.39150523365625*^9}, {3.391543449609375*^9, 3.391543453109375*^9}, {
  3.394684707484375*^9, 3.39468471040625*^9}, {3.395040078390625*^9, 
  3.39504008028125*^9}, {3.395248476828125*^9, 3.39524848053125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Programs", "Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PathOf", "[", "\"\<ImageMagick\>\"", "]"}], " ", "=", " ", 
   "\"\<C:\\\\Program Files\\\\ImageMagick-6.5.0-Q16\\\\\>\""}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4459430294820004`*^9, 3.445943078479*^9}, {
  3.445943112804*^9, 3.445943113047*^9}}],

Cell[CellGroupData[{

Cell["Utilities", "Subsection",
 CellChangeTimes->{{3.391415030875*^9, 3.391415032921875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"StringSplice", "[", 
    RowBox[{"this_Page", ",", " ", "ss_String"}], "]"}], " ", ":=", " ", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"ss", ",", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"\"\<<#\>\"", "~~", 
         RowBox[{"ShortestMatch", "[", "s___", "]"}], "~~", "\"\<#>\>\""}], 
        " ", "\[RuleDelayed]", " ", 
        RowBox[{"ToString", "[", 
         RowBox[{"this", "[", 
          RowBox[{"ToExpression", "[", "s", "]"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\"\<<*\>\"", "~~", 
         RowBox[{"ShortestMatch", "[", "s___", "]"}], "~~", "\"\<*>\>\""}], 
        " ", "\[RuleDelayed]", " ", 
        RowBox[{"ToString", "[", 
         RowBox[{"ToExpression", "[", "s", "]"}], "]"}]}]}], 
      "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RemoveRepetitions", "[", "l_List", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "a", "}"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "x_", "]"}], ":=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"a", "[", "x", "]"}], "=", 
          RowBox[{"Sequence", "[", "]"}]}], ";", " ", "x"}], ")"}]}], ";", 
      " ", 
      RowBox[{"a", " ", "/@", " ", "l"}]}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.391415053265625*^9, 3.39141510025*^9}, {
  3.391433387875*^9, 3.391433412921875*^9}, {3.39143378303125*^9, 
  3.39143380634375*^9}, {3.396407342109375*^9, 3.39640734428125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Completing the Pages List", "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ReadImage", "[", "im_String", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"fs", ",", " ", "s"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"fs", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"im", ",", " ", "\"\<ImageSize\>\""}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"s", " ", "=", " ", 
       RowBox[{"Import", "[", 
        RowBox[{
         RowBox[{"\"\<!\\\"\>\"", "<>", 
          RowBox[{"PathOf", "[", "\"\<ImageMagick\>\"", "]"}], "<>", 
          "\"\<identify.exe\\\"\\ -format %c \>\"", "<>", "im"}], ",", " ", 
         "\"\<String\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "s", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Page", "[", 
       RowBox[{"\"\<Image\>\"", ",", " ", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"\"\<Sequence[\>\"", "<>", "s", "<>", "\"\<]\>\""}], "]"}], 
        ",", " ", 
        RowBox[{"FullSize", " ", "\[Rule]", " ", "fs"}], ",", " ", 
        RowBox[{"ImageFile", " ", "\[Rule]", " ", 
         RowBox[{"Last", "[", 
          RowBox[{"FileNameSplit", "[", "im", "]"}], "]"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.445943127668*^9, 3.4459431352790003`*^9}, {
   3.445943226381*^9, 3.4459432330299997`*^9}, {3.445943265201*^9, 
   3.445943265979*^9}, {3.445944498582*^9, 3.445944502928*^9}, {
   3.445944566365*^9, 3.445944574333*^9}, 3.4470247493605003`*^9, {
   3.4470255365835*^9, 3.4470255415565*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Object Orientation", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Page", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ObjectOrient", "[", 
    RowBox[{"parent_Page", ",", " ", 
     RowBox[{"Page", "[", 
      RowBox[{"type_String", ",", " ", "attribs___Rule"}], "]"}]}], "]"}], 
   " ", ":=", " ", 
   RowBox[{"ObjectOrient", "[", 
    RowBox[{"parent", ",", " ", 
     RowBox[{"Page", "[", 
      RowBox[{"type", ",", " ", "attribs", ",", " ", 
       RowBox[{"{", "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ObjectOrient", "[", 
    RowBox[{"parent_Page", ",", " ", 
     RowBox[{"Page", "[", 
      RowBox[{
      "type_String", ",", " ", "attribs___Rule", ",", " ", "subs_List"}], 
      "]"}]}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "this", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"this", "=", 
       RowBox[{"Page", "[", 
        RowBox[{"n", "++"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"this", "[", "Parent", "]"}], " ", "=", " ", "parent"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"this", "[", "Type", "]"}], " ", "=", " ", "type"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"this", "[", "#1", "]"}], " ", "=", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Head", "[", "#2", "]"}], "===", "String"}], ",", " ", 
            RowBox[{"StringSplice", "[", 
             RowBox[{"this", ",", " ", "#2"}], "]"}], ",", " ", "#2"}], 
           "]"}]}], ")"}], "&"}], " ", "@@@", " ", 
       RowBox[{"{", "attribs", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"this", "[", "Subpages", "]"}], " ", "=", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"ObjectOrient", "[", 
          RowBox[{"this", ",", " ", "#"}], "]"}], "&"}], " ", "/@", " ", 
        "subs"}]}], ";", "\[IndentingNewLine]", "this"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"this_Page", "[", 
    RowBox[{"a_", "[", "b_", "]"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "a", "]"}], "[", "b", "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.391409663140625*^9, 3.391409665671875*^9}, 
   3.391409864046875*^9, {3.391433973421875*^9, 3.391434011171875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cell Extraction", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ExtractDataCell", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ExtractDataCell", "[", "cn_String", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"ExtractDataCell", "[", "cn", "]"}], " ", "=", " ", 
    RowBox[{"First", "[", 
     RowBox[{"Cases", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NotebookGet", "[", 
        RowBox[{"EvaluationNotebook", "[", "]"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Cell", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"cc_String", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"StringMatchQ", "[", 
              RowBox[{"#", ",", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                 "\"\<Data Cell \>\"", "<>", "cn", "<>", "\"\<:\\n\>\""}], 
                 ")"}], "~~", "___"}]}], "]"}], "&"}], ")"}]}], ",", 
          "\[IndentingNewLine]", "\"\<Text\>\"", " ", ",", " ", "___"}], 
         "\[IndentingNewLine]", "]"}], " ", "\[RuleDelayed]", " ", 
        RowBox[{"Last", "[", 
         RowBox[{"StringSplit", "[", 
          RowBox[{"cc", ",", " ", "\"\<\\n\>\"", ",", " ", "2"}], "]"}], 
         "]"}]}], ",", "\[IndentingNewLine]", "Infinity"}], 
      "\[IndentingNewLine]", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExtractDataCell", " ", "/@", " ", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Top UpNavigator\>\"", ",", " ", "\"\<Index Template\>\"", ",", " ", 
     "\"\<Place Page Banner\>\"", ",", " ", "\"\<Place Template\>\"", ",", 
     " ", "\"\<Image Page Banner\>\"", ",", " ", "\"\<Image Template\>\"", 
     ",", " ", "\"\<Navigator\>\"", ",", " ", "\"\<Mirroring Template\>\""}], 
    "}"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.396534073796875*^9, 3.3965340745625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Index Page", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Page", "[", "0", "]"}], "[", "UpNavigator", "]"}], " ", "=", 
   "  ", 
   RowBox[{"ExtractDataCell", "[", "\"\<Top UpNavigator\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Files", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Index\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Files", "]"}], " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"this", "[", "HTMLFile", "]"}], ",", " ", 
      RowBox[{"this", "[", "IconFile", "]"}], ",", " ", 
      "\"\<Mirroring.html\>\"", ",", " ", "\"\<Assemble.nb\>\"", ",", " ", 
      "\"\<.htaccess\>\""}], "}"}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.390323203453125*^9, 3.39032320784375*^9}, {
  3.396406344234375*^9, 3.396406345140625*^9}, {3.396407984703125*^9, 
  3.396407992015625*^9}, {3.396961206578125*^9, 3.39696121146875*^9}}],

Cell["\<\
Data Cell Top UpNavigator:
<a href=\"/~drorbn/Copyleft/index.html\">&copy;</a> |
<a href=\"/~drorbn/\">Dror Bar-Natan</a>'s
<a href=\"../index.html\">Image Gallery</a>:\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Index Template", "Subsection"],

Cell["\<\
Data Cell Index Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] of <*Length[AllPages]*> in this Make >

<html>
<head>
  <link rel=\"stylesheet\" type=\"text/css\" href=\"/~drorbn/global.css\">
  <title><#FullTitle#></title>
  <script language=JavaScript>var n=<#N#>, up=\"index.html\";</script>
  <script src=\"AllPages.js\"></script>
  <script src=\"Actions.js\"></script>
</head>

<body leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" \
onkeypress = \"keypressed(event)\" onload=\"loaded()\" onresize=\"resized()\">

<#Navigator#>

<p><center><table>
<#MainContent#>
</table></center>

<p>The html files in the Places gallery were created from an abstract data \
structure by <a href=\"Assemble.nb\">Assemble.nb</a> on <*Floor[Date[]]*>. 

<p><a href=\"Mirroring.html\">Mirroring / File Lists</a>.

</body></html>\
\>", "Text",
 CellChangeTimes->{{3.389563831*^9, 3.389563835171875*^9}, {
   3.389563995578125*^9, 3.389564028125*^9}, 3.389649794265625*^9, 
   3.389650347625*^9, 3.38965095446875*^9, {3.39032315165625*^9, 
   3.390323183625*^9}, 3.390323328390625*^9, 3.39140841503125*^9, 
   3.391408445234375*^9, {3.39140848853125*^9, 3.391408543171875*^9}, {
   3.391409404421875*^9, 3.391409431171875*^9}, {3.3914095700625*^9, 
   3.391409591171875*^9}, 3.39140982271875*^9, {3.391415115921875*^9, 
   3.391415121734375*^9}, 3.3914331905625*^9, {3.396092536520125*^9, 
   3.396092537957625*^9}, {3.39640847090625*^9, 3.3964085344375*^9}, {
   3.396408715703125*^9, 3.3964087345*^9}, {3.39661062221875*^9, 
   3.396610639828125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Place Pages", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "IconFile", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Place\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "IconFile", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"First", "[", 
      RowBox[{"this", "[", "Subpages", "]"}], "]"}], "[", "IconFile", 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Banner", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Place\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Banner", "]"}], " ", "=", " ", 
    RowBox[{"StringSplice", "[", 
     RowBox[{"this", ",", " ", 
      RowBox[{"ExtractDataCell", "[", "\"\<Place Page Banner\>\"", "]"}]}], 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Files", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Place\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Files", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"this", "[", "HTMLFile", "]"}], ",", " ", 
       RowBox[{"this", "[", "IconFile", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"this", "[", "FullPrefix", "]"}], "<>", 
        "\"\<Mirroring.html\>\""}]}], "\[IndentingNewLine]", "}"}], "~", 
     "Join", "~", 
     RowBox[{"this", "[", "ExtraFiles", "]"}]}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.3914084655625*^9, 3.39140851640625*^9, {3.391415196171875*^9, 
   3.391415208*^9}, 3.391433730140625*^9, 3.39143376559375*^9, {
   3.396408003375*^9, 3.396408030171875*^9}, {3.396557477078125*^9, 
   3.3965574886875*^9}}],

Cell["\<\
Data Cell Place Page Banner:
  <td><table width=240 cellpadding=0 cellspacing=0>
        <tr><td align=center><font size=-2><a \
href=\"<#HTMLFile#>\"><#NumberOfLeafs#> images</a></td></font></tr>
        <tr><td align=center><a href=\"<#HTMLFile#>\"><img src=<#IconFile#> \
height=180 alt=\"<#Title#>\"></a></td></tr>
        <tr><td align=center><#Title#></td></tr>
    </table></td>\
\>", "Text",
 CellChangeTimes->{{3.39140846615625*^9, 3.391408469234375*^9}, {
  3.3914085169375*^9, 3.391408518890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Place Template", "Subsection"],

Cell["\<\
Data Cell Place Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] >

<html>
<head>
  <link rel=\"stylesheet\" type=\"text/css\" href=\"/~drorbn/global.css\">
  <title><#FullTitle#></title>
  <script language=JavaScript>var n=<#N#>, up=\"<#Parent@HTMLFile#>\";</script>
  <script src=\"AllPages.js\"></script>
  <script src=\"Actions.js\"></script>
</head>

<body leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" \
onkeypress = \"keypressed(event)\" onload=\"loaded()\" onresize=\"resized()\">

<#Navigator#>
<#TopText#>
<p><center><table>
<#MainContent#>
</table></center>

<p><#ExtraText#>

<p><a href=\"<#FullPrefix#>Mirroring.html\">Mirroring / File Lists</a>.

</body></html>\
\>", "Text",
 CellChangeTimes->{
  3.389564051890625*^9, 3.3896497833125*^9, 3.389650340671875*^9, 
   3.38965094878125*^9, {3.391408470078125*^9, 3.39140847165625*^9}, {
   3.3914085193125*^9, 3.3914085216875*^9}, {3.39140961721875*^9, 
   3.39140961878125*^9}, {3.3914097699375*^9, 3.3914097815625*^9}, 
   3.3914331985*^9, {3.394753114359375*^9, 3.394753125234375*^9}, {
   3.395869159625*^9, 3.395869173390625*^9}, {3.396092567270125*^9, 
   3.39609256784825*^9}, {3.396408543375*^9, 3.396408570515625*^9}, {
   3.396408743734375*^9, 3.396408754171875*^9}, {3.3966106579375*^9, 
   3.3966106640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Image Pages", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Leafs", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Image\>\""}]}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Leafs", "]"}], " ", "=", " ", "this"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "DisplaySize", "]"}], " ", ":=", 
   " ", 
   RowBox[{
    RowBox[{"this", "[", "DisplaySize", "]"}], " ", "=", " ", 
    RowBox[{"Round", "[", 
     RowBox[{"640", "*", 
      RowBox[{
       RowBox[{"this", "[", "FullSize", "]"}], "/", 
       RowBox[{"Max", "[", 
        RowBox[{"this", "[", "FullSize", "]"}], "]"}]}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "IconSize", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "IconSize", "]"}], " ", "=", " ", 
    RowBox[{"Round", "[", 
     RowBox[{"180", "*", 
      RowBox[{
       RowBox[{"this", "[", "FullSize", "]"}], "/", 
       RowBox[{
        RowBox[{"this", "[", "FullSize", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Title", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Title", "]"}], " ", "=", " ", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"this", "[", "ImageFile", "]"}], ",", " ", 
      RowBox[{
       RowBox[{"RegularExpression", "[", "\"\<\\\\..*\>\"", "]"}], " ", 
       "\[Rule]", " ", "\"\<\>\""}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullSize", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "FullSize", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{
       RowBox[{"Import", "[", 
        RowBox[{"this", "[", "ImageFile", "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullWidth", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "FullWidth", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"this", "[", "FullSize", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullHeight", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "FullHeight", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"this", "[", "FullSize", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullSizeString", "]"}], " ", ":=", 
   " ", 
   RowBox[{
    RowBox[{"this", "[", "FullSizeString", "]"}], " ", "=", " ", 
    RowBox[{"StringJoin", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ToString", "[", 
       RowBox[{"this", "[", "FullWidth", "]"}], "]"}], ",", " ", "\"\<x\>\"", 
      ",", " ", 
      RowBox[{"ToString", "[", 
       RowBox[{"this", "[", "FullHeight", "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "DisplaySizeString", "]"}], " ", ":=",
    " ", 
   RowBox[{
    RowBox[{"this", "[", "DisplaySizeString", "]"}], " ", "=", " ", 
    RowBox[{"StringJoin", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"this", "[", "DisplaySize", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", "\"\<x\>\"", ",", 
      " ", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"this", "[", "DisplaySize", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "IconSizeString", "]"}], " ", ":=", 
   " ", 
   RowBox[{
    RowBox[{"this", "[", "IconSizeString", "]"}], " ", "=", " ", 
    RowBox[{"StringJoin", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"this", "[", "IconSize", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", "\"\<x\>\"", ",", 
      " ", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"this", "[", "IconSize", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "DisplayImageFile", "]"}], " ", "/;",
     " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Image\>\""}]}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "DisplayImageFile", "]"}], " ", "=", " ", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"this", "[", "ImageFile", "]"}], ",", " ", 
      RowBox[{
       RowBox[{"\"\<.jpg\>\"", "|", "\"\<.JPG\>\""}], " ", "\[Rule]", " ", 
       RowBox[{"\"\<_\>\"", "<>", 
        RowBox[{"this", "[", "DisplaySizeString", "]"}], "<>", 
        "\"\<.jpg\>\""}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "IconFile", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Image\>\""}]}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "IconFile", "]"}], " ", "=", " ", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"this", "[", "ImageFile", "]"}], ",", " ", 
      RowBox[{
       RowBox[{"\"\<.jpg\>\"", "|", "\"\<.JPG\>\""}], " ", "\[Rule]", " ", 
       RowBox[{"\"\<_\>\"", "<>", 
        RowBox[{"this", "[", "IconSizeString", "]"}], "<>", 
        "\"\<.jpg\>\""}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Banner", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Image\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Banner", "]"}], " ", "=", " ", 
    RowBox[{"StringSplice", "[", 
     RowBox[{"this", ",", " ", 
      RowBox[{"ExtractDataCell", "[", "\"\<Image Page Banner\>\"", "]"}]}], 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "this_Page", ")"}], "[", "Files", "]"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"this", "[", "Type", "]"}], " ", "\[Equal]", " ", 
     "\"\<Image\>\""}]}], ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Files", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"this", "[", "#", "]"}], ")"}], "&"}], " ", "/@", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "HTMLFile", ",", " ", "ImageFile", ",", " ", "DisplayImageFile", ",", 
       " ", "IconFile"}], "\[IndentingNewLine]", "}"}]}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.389645892765625*^9, 3.389645969859375*^9}, 
   3.391408472078125*^9, 3.39140852225*^9, {3.39141522290625*^9, 
   3.39141523309375*^9}, 3.391433732125*^9, 3.391433766734375*^9, {
   3.39661352465625*^9, 3.396613535890625*^9}}],

Cell["\<\
Data Cell Image Page Banner:
  <td align=center><table width=240 cellpadding=0 cellspacing=0>
   <tr>
     <td align=left><font size=-2><a href=\"<#HTMLFile#>\">Text and \
<#DisplaySizeString#></a></font></td>
     <td align=right><font size=-2><a href=\"<#ImageFile#>\"><#ImageFile#> \
(<#FullSizeString#>)</a></font></td>
  </tr> <tr>
    <td colspan=2 align=center><a href=\"<#HTMLFile#>\"><img src=<#IconFile#> \
height=180 alt=\"<#Title#>\"></a></td>
    </tr> <tr>
      <td colspan=2 align=center><#Title#></td>
    </tr>
    </table></td>\
\>", "Text",
 CellChangeTimes->{{3.3914084725*^9, 3.39140847584375*^9}, {
  3.39140852278125*^9, 3.391408526890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Image Template", "Subsection"],

Cell["\<\
Data Cell Image Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] >

<html>
<head>
  <link rel=\"stylesheet\" type=\"text/css\" href=\"/~drorbn/global.css\">
  <title><#FullTitle#></title>
  <script language=JavaScript>
    var n=<#N#>;
    var up=\"<#Parent@HTMLFile#>\";
    var imagefile=\"<#ImageFile#>\";
    var fullwidth=<#FullWidth#>.;
    var fullheight=<#FullHeight#>.;
  </script>
  <script src=\"AllPages.js\"></script>
  <script src=\"Actions.js\"></script>
</head>

<body leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" \
onkeypress = \"keypressed(event)\" onload=\"loaded()\" onresize=\"resized()\">

<div id=\"displayed\" style=\"display: block;\">
<#Navigator#>

<table border=0 align=center cellspacing=0 cellpadding=0>
<tr><td colspan=2 align=center><a href=\"javascript: keyaction('f');\"><img \
src=\"<#DisplayImageFile#>\"></a></td></tr>
<tr>
  <td align=left><font size=-1><a href=\"javascript: keyaction('f');\"><font \
color=red>f</font>itted view (best; use full screen (<font \
color=red>F11</font>))</a></font></td>
  <td align=right><font size=-1><a href=\"<#ImageFile#>\"><font \
color=red>i</font>mage only (<#ImageFile#>, <#FullSizeString#>)</a></font></td>
</tr>
<tr><td colspan=2 align=center>&nbsp;<br><#Text#></td></tr>
</table>

<p><#ExtraText#>
</div>

<div id=\"fitted\" align=center style=\"display: none\">
<img id=fullsize border=0 src=\"<#DisplayImageFile#>\" style=\"z-index:0;\">
<div id=\"TopLeftText\" style=\"display: block; position: absolute; top: 0px; \
left: 0px; z-index: 1; text-align: left; max-width: 66%\"><span style=\" \
background-color:white;\"><#UpNavigator#> <b><#Title#></b></span></div>
<div id=\"TopRightText\" style=\"display: block; position: absolute; top: \
0px; right: 0px; z-index: 1; font-size: small; text-align: right; max-width: \
33%\">
  <a href=\"javascript: keyaction('s');\" \
style=\"background-color:white\"><font color=red>s</font>tandard view</a><br>
  <a href=\"javascript: keyaction('i');\" \
style=\"background-color:white\"><font color=red>i</font>mage only</a><br>
  <a href=\"javascript: keyaction('t');\" \
style=\"background-color:white\"><font color=red>t</font>ext on/off</a><br>
  <a href=\"javascript: keyaction('p');\" \
style=\"background-color:white\"><font color=red>p</font>revious</a><br>
  <a href=\"javascript: keyaction('r');\" \
style=\"background-color:white\"><font color=red>r</font>andom</a><br>
  <a href=\"javascript: keyaction('n');\" \
style=\"background-color:white\"><font color=red>n</font>ext</a><br>
  <a href=\"javascript: keyaction('u');\" \
style=\"background-color:white\"><font color=red>u</font>p</a>
</div>
<div id=\"BottomLeftText\" style=\"display: block; position: absolute; \
bottom: 0px; left: 0px; z-index: 1; font-size: small; text-align: left; \
max-width: 66%\"><span \
style=\"background-color:white;\"><#Text#><br><#ExtraText#></span></div>
<div id=\"BottomRightText\" style=\"display: block; position: absolute; \
bottom: 0px; right: 0px; background-color:white; z-index: 1; font-size: \
small; text-align: right; max-width: 33%\">Best viewed at full screen (<font \
color=red>F11</font>)</div>
</div>

</body></html>\
\>", "Text",
 CellChangeTimes->{
  3.3895640614375*^9, {3.389640050640625*^9, 3.389640146875*^9}, {
   3.389641426640625*^9, 3.3896414364375*^9}, {3.38964391134375*^9, 
   3.38964398953125*^9}, {3.389644780984375*^9, 3.38964480896875*^9}, {
   3.38964500953125*^9, 3.389645017671875*^9}, 3.389645437421875*^9, {
   3.389645980609375*^9, 3.389646030046875*^9}, {3.389646380390625*^9, 
   3.389646389390625*^9}, {3.389646444140625*^9, 3.389646448*^9}, {
   3.3896475120625*^9, 3.389647557015625*^9}, {3.389647643234375*^9, 
   3.389647654765625*^9}, {3.389647809828125*^9, 3.389647819625*^9}, {
   3.38964785990625*^9, 3.389647860828125*^9}, {3.389649814375*^9, 
   3.3896498169375*^9}, {3.3896498590625*^9, 3.38964988703125*^9}, {
   3.3896499240625*^9, 3.389649925*^9}, {3.38964998865625*^9, 
   3.38965001475*^9}, {3.38965026396875*^9, 3.38965032278125*^9}, {
   3.38965093103125*^9, 3.389650938*^9}, {3.389792636265625*^9, 
   3.38979268734375*^9}, {3.389792830390625*^9, 3.389792897140625*^9}, {
   3.3897929821875*^9, 3.3897930044375*^9}, {3.3897930633125*^9, 
   3.3897931564375*^9}, {3.38979332465625*^9, 3.38979332515625*^9}, {
   3.389793566125*^9, 3.389793613859375*^9}, {3.389793789921875*^9, 
   3.38979389634375*^9}, {3.389793929078125*^9, 3.389793930265625*^9}, {
   3.389793965046875*^9, 3.38979397121875*^9}, {3.38979405840625*^9, 
   3.38979415371875*^9}, {3.389794339515625*^9, 3.3897943540625*^9}, {
   3.389794404375*^9, 3.38979440509375*^9}, {3.389794529859375*^9, 
   3.389794614984375*^9}, {3.38979465409375*^9, 3.3897946975625*^9}, {
   3.389794989953125*^9, 3.389794994671875*^9}, {3.389795058796875*^9, 
   3.389795076390625*^9}, {3.389795192453125*^9, 3.38979523515625*^9}, 
   3.389795286078125*^9, {3.389795324109375*^9, 3.389795325140625*^9}, {
   3.389795385703125*^9, 3.389795443125*^9}, {3.38979557021875*^9, 
   3.3897956409375*^9}, {3.38979570359375*^9, 3.389795729109375*^9}, {
   3.389796851625*^9, 3.389796911484375*^9}, {3.389797000265625*^9, 
   3.389797010703125*^9}, {3.389822688390625*^9, 3.389822733375*^9}, {
   3.389822788953125*^9, 3.38982281171875*^9}, {3.389822865828125*^9, 
   3.38982287090625*^9}, 3.38982315084375*^9, {3.38982318459375*^9, 
   3.389823215046875*^9}, {3.389823321546875*^9, 3.389823330078125*^9}, {
   3.389823499578125*^9, 3.389823523390625*^9}, {3.3898236224375*^9, 
   3.38982364534375*^9}, {3.3898238239375*^9, 3.38982382640625*^9}, {
   3.3898241*^9, 3.38982410528125*^9}, {3.389832508203125*^9, 
   3.389832510859375*^9}, {3.38983264834375*^9, 3.389832666359375*^9}, {
   3.389832926609375*^9, 3.389832958515625*^9}, {3.38983347028125*^9, 
   3.38983347196875*^9}, {3.3898741955*^9, 3.38987422309375*^9}, {
   3.38987426521875*^9, 3.389874266859375*^9}, {3.389908813015625*^9, 
   3.389908835296875*^9}, {3.389908880921875*^9, 3.389909105984375*^9}, {
   3.389909141625*^9, 3.38990914553125*^9}, {3.389909183203125*^9, 
   3.389909207921875*^9}, {3.389909275*^9, 3.38990927703125*^9}, {
   3.38990972365625*^9, 3.38990972453125*^9}, {3.38990980715625*^9, 
   3.38990984146875*^9}, {3.38990989609375*^9, 3.38990992759375*^9}, {
   3.389909962609375*^9, 3.389909985703125*^9}, {3.3901587695653753`*^9, 
   3.3901588064403753`*^9}, {3.39032247209375*^9, 3.39032248234375*^9}, {
   3.3904335294957757`*^9, 3.3904335543395257`*^9}, {3.391408476265625*^9, 
   3.39140848396875*^9}, {3.391408527375*^9, 3.39140853590625*^9}, {
   3.391409629265625*^9, 3.391409630203125*^9}, 3.3914098375*^9, 
   3.3914332055*^9, {3.39475314125*^9, 3.394753142125*^9}, {
   3.3960925968795*^9, 3.3960926196295*^9}, {3.396092817926375*^9, 
   3.396092818926375*^9}, {3.396408769234375*^9, 3.396408780484375*^9}, 
   3.3964088628125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mirroring / File Lists Pages", "Subsection",
 CellChangeTimes->{{3.396533457875*^9, 3.396533459171875*^9}, {
  3.39653371053125*^9, 3.396533722171875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"FileTable", "[", 
    RowBox[{"c_Integer", ",", " ", "l_List"}], "]"}], " ", ":=", " ", 
   RowBox[{"StringJoin", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\"\<<td>\>\"", "<>", 
        RowBox[{"StringJoin", "[", "#", "]"}], "<>", "\"\<</td>\>\""}], ")"}],
       "&"}], " ", "/@", " ", "\[IndentingNewLine]", 
     RowBox[{"Partition", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"PadRight", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
            "\"\<<a href=\>\"", "<>", "#", "<>", "\"\<>\>\"", "<>", "#", 
             "<>", "\"\<</a><br>\\n\>\""}], ")"}], "&"}], " ", "/@", " ", 
          "l"}], ",", " ", 
         RowBox[{"c", "*", 
          RowBox[{"Ceiling", "[", 
           RowBox[{
            RowBox[{"Length", "[", "l", "]"}], "/", "c"}], "]"}]}], ",", " ", 
         "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Ceiling", "[", 
        RowBox[{
         RowBox[{"Length", "[", "l", "]"}], "/", "c"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "DisplayedImages", "]"}], " ", ":=",
    " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "this", ")"}], "[", "DisplayedImages", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", "DisplayImageFile", "]"}], "&"}], " ", "/@", " ", 
     RowBox[{"this", "[", "Leafs", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "DisplayedImagesFileList", "]"}], 
   " ", ":=", " ", 
   RowBox[{"FileTable", "[", 
    RowBox[{"5", ",", " ", 
     RowBox[{"this", "[", "DisplayedImages", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Images", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "this", ")"}], "[", "Images", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", "ImageFile", "]"}], "&"}], " ", "/@", " ", 
     RowBox[{"this", "[", "Leafs", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "ImagesFileList", "]"}], " ", ":=", 
   " ", 
   RowBox[{"FileTable", "[", 
    RowBox[{"5", ",", " ", 
     RowBox[{"this", "[", "Images", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "RemainingFileList", "]"}], " ", ":=",
    " ", 
   RowBox[{"FileTable", "[", 
    RowBox[{"5", ",", " ", 
     RowBox[{"Select", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"this", "[", "AllFiles", "]"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"Union", "[", 
            RowBox[{
             RowBox[{"this", "[", "DisplayedImages", "]"}], ",", " ", 
             RowBox[{"this", "[", "Images", "]"}]}], "]"}], ",", " ", "#"}], 
          "]"}]}], "&"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.396533767421875*^9, 3.396533797078125*^9}, {
   3.396534025984375*^9, 3.396534032*^9}, {3.396534158265625*^9, 
   3.39653417534375*^9}, 3.396559120390625*^9, {3.3965664199375*^9, 
   3.396566420890625*^9}, {3.396566483640625*^9, 3.3965665685625*^9}, {
   3.39656746565625*^9, 3.39656755278125*^9}, {3.396568235265625*^9, 
   3.396568272078125*^9}, {3.39661047621875*^9, 3.396610499953125*^9}, {
   3.396613645328125*^9, 3.3966137665*^9}, {3.39661380471875*^9, 
   3.3966138880625*^9}, 3.396614165796875*^9, {3.396614278921875*^9, 
   3.3966143058125*^9}, {3.3966144484375*^9, 3.396614522625*^9}, {
   3.39661462678125*^9, 3.39661462734375*^9}, {3.396961879*^9, 
   3.3969618824375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Mirroring Template", "Subsection",
 CellChangeTimes->{{3.396533457875*^9, 3.396533459171875*^9}}],

Cell["\<\
Data Cell Mirroring Template:
<! Script generated - do not edit! >

<html>

<head>
  <link rel=\"stylesheet\" type=\"text/css\" href=\"/~drorbn/global.css\">
  <link rel=\"stylesheet\" type=\"text/css\" href=\"Art.css\">
  <title><#FullTitle#>
</head>

<body>

<#UpNavigator#> <a href=<#HTMLFile#>><#Title#></a>:
  <p><center><h1>Mirroring / File Lists</h1></center>
  
  <h2>Mirroring</h2>
  
You can mirror all or part of the <a href=<#HTMLFile#>><#Title#></a> section \
of this image gallery by copying some or all of the files in the lists below \
into a single directory on your computer. You may wish to find an automated \
way of doing so. A nice possibility is to use the command <a class=external \
href=\"http://www.gnu.org/software/wget/wget.html\">wget</a>, available on \
several operating systems (<a class=external \
href=\"http://www.gnu.org/software/wget/wget.html\">see also</a>). On a unix \
machine, for example, you may copy-paste one or more of the lists below into \
a text file <tt>file_list</tt> and then issue the command
<blockquote><tt>wget -i file_list \
--base=http://www.math.toronto.edu/~drorbn/Gallery/Places/</tt></blockquote>
Alternatively, you may issue the command
<blockquote><tt>wget -i - \
--base=http://www.math.toronto.edu/~drorbn/Gallery/Places/</tt></blockquote>
and then copy-paste one or more of the lists below into standard input.

<h2>File Lists</h2>

<table class=FileList align=center width=100% border=1 cellspacing=0>
<tr><td colspan=5 align=center style=\"font-size: large\"><b>HTML files, \
Scripts and Icons</b></td></tr>
<tr valign=top>
<#RemainingFileList#>
</tr>
<tr><td colspan=5 align=center style=\"font-size: large\"><b>Medium-Size \
(roughly VGA) Images</b></td></tr>
<tr valign=top>
<#DisplayedImagesFileList#>
</tr>
<tr><td colspan=5 align=center style=\"font-size: large\"><b>Full-Size \
(large!) Images</b></td></tr>
<tr valign=top>
<#ImagesFileList#>
</tr>
</table>

</body></html>\
\>", "Text",
 CellChangeTimes->{
  3.389564051890625*^9, 3.3896497833125*^9, 3.389650340671875*^9, 
   3.38965094878125*^9, {3.391408470078125*^9, 3.39140847165625*^9}, {
   3.3914085193125*^9, 3.3914085216875*^9}, {3.39140961721875*^9, 
   3.39140961878125*^9}, {3.3914097699375*^9, 3.3914097815625*^9}, 
   3.3914331985*^9, {3.394753114359375*^9, 3.394753125234375*^9}, {
   3.395869159625*^9, 3.395869173390625*^9}, {3.396092567270125*^9, 
   3.39609256784825*^9}, {3.396408543375*^9, 3.396408570515625*^9}, {
   3.396408743734375*^9, 3.396408754171875*^9}, {3.39653346571875*^9, 
   3.396533634015625*^9}, {3.39653380328125*^9, 3.396533820859375*^9}, {
   3.39653393953125*^9, 3.39653394140625*^9}, {3.39653428853125*^9, 
   3.396534364875*^9}, {3.396534458484375*^9, 3.396534482265625*^9}, {
   3.396557543515625*^9, 3.396557579640625*^9}, {3.3965577490625*^9, 
   3.3965577495625*^9}, {3.396559162765625*^9, 3.396559186359375*^9}, 
   3.396559275234375*^9, {3.396567565421875*^9, 3.396567584859375*^9}, {
   3.396567650984375*^9, 3.396567655203125*^9}, {3.39656774434375*^9, 
   3.396567763015625*^9}, {3.39656799734375*^9, 3.39656800584375*^9}, {
   3.3965685650625*^9, 3.396568567671875*^9}, {3.396610749359375*^9, 
   3.3966108888125*^9}, {3.39661094875*^9, 3.39661095178125*^9}, {
   3.396610989359375*^9, 3.39661100634375*^9}, {3.3966110430625*^9, 
   3.396611055453125*^9}, {3.39661116234375*^9, 3.39661126534375*^9}, {
   3.396611455390625*^9, 3.3966114583125*^9}, {3.396612103796875*^9, 
   3.396612104796875*^9}, {3.39661262103125*^9, 3.39661289703125*^9}, {
   3.396612992734375*^9, 3.396613054640625*^9}, {3.39661311271875*^9, 
   3.396613121078125*^9}, {3.39661316465625*^9, 3.39661328221875*^9}, {
   3.39661340875*^9, 3.396613416796875*^9}, {3.396613450640625*^9, 
   3.396613454484375*^9}, {3.39661390034375*^9, 3.39661394846875*^9}, {
   3.39661414725*^9, 3.396614148515625*^9}, {3.396614540171875*^9, 
   3.396614566515625*^9}, {3.396614925078125*^9, 3.396614933484375*^9}, {
   3.3969618921875*^9, 3.396961895625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["DataCompletion (General)", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"this_Page", "[", "N", "]"}], " ", ":=", " ", 
   RowBox[{"First", "[", "this", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Text", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Text", "]"}], " ", "=", " ", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "TopText", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "TopText", "]"}], " ", "=", " ", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "ExtraText", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "ExtraText", "]"}], " ", "=", " ", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "ExtraFiles", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "ExtraFiles", "]"}], " ", "=", " ", 
    RowBox[{"{", "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Leafs", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Leafs", "]"}], " ", "=", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"#", "[", "Leafs", "]"}], ")"}], "&"}], " ", "/@", " ", 
      RowBox[{"this", "[", "Subpages", "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "NumberOfLeafs", "]"}], " ", ":=", 
   " ", 
   RowBox[{
    RowBox[{"this", "[", "NumberOfLeafs", "]"}], " ", "=", " ", 
    RowBox[{"Length", "[", 
     RowBox[{"this", "[", "Leafs", "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Prefix", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Prefix", "]"}], " ", "=", " ", "\"\<\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullPrefix", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "FullPrefix", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"this", "[", "Parent", "]"}], "[", "FullPrefix", "]"}], "<>", 
     RowBox[{"this", "[", "Prefix", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "HTMLFile", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "HTMLFile", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"this", "[", "FullPrefix", "]"}], "<>", 
       RowBox[{"this", "[", "HTMLName", "]"}]}], ")"}], " ", "/.", " ", 
     "Aliases"}]}]}], ";", 
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "FullTitle", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "FullTitle", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"this", "[", "Parent", "]"}], "[", "FullTitle", "]"}], "<>", 
     "\"\<: \>\"", "<>", 
     RowBox[{"this", "[", "Title", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "UpNavigator", "]"}], " ", ":=", 
   " ", 
   RowBox[{
    RowBox[{"this", "[", "UpNavigator", "]"}], " ", "=", " ", 
    RowBox[{"StringJoin", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"this", "[", "Parent", "]"}], "[", "UpNavigator", "]"}], ",", 
      " ", "\"\<\\n\>\"", ",", "\[IndentingNewLine]", "\"\<<a href=\>\"", ",",
       " ", 
      RowBox[{
       RowBox[{"this", "[", "Parent", "]"}], "[", "HTMLFile", "]"}], ",", " ",
       "\"\<>\>\"", ",", " ", 
      RowBox[{
       RowBox[{"this", "[", "Parent", "]"}], "[", "Title", "]"}], ",", " ", 
      "\"\<</a>:\>\""}], "\[IndentingNewLine]", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "Navigator", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "Navigator", "]"}], " ", "=", " ", 
    RowBox[{"StringSplice", "[", 
     RowBox[{"this", ",", " ", 
      RowBox[{"ExtractDataCell", "[", "\"\<Navigator\>\"", "]"}]}], "]"}]}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "HTMLName", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "HTMLName", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{
       RowBox[{"this", "[", "Title", "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\"\< \>\"", " ", "\[Rule]", " ", "\"\<_\>\""}], ",", " ", 
         RowBox[{"\"\<&Aring;\>\"", " ", "\[Rule]", " ", "\"\<Aa\>\""}]}], 
        "}"}]}], "]"}], "<>", "\"\<.html\>\""}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "MainContent", "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"banners", ",", " ", 
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"out", "=", 
        RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"banners", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", "Banner", "]"}], "&"}], " ", "/@", " ", 
        RowBox[{"this", "[", "Subpages", "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"i", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "banners", "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"out", ",", " ", 
          RowBox[{"\"\<<tr valign=top>\>\"", "<>", 
           RowBox[{"Switch", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "banners", "]"}], "-", "i"}], ",", 
             "\[IndentingNewLine]", "0", ",", " ", 
             RowBox[{"\"\<<td></td>\>\"", "<>", 
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}], "<>", 
              "\"\<<td></td>\>\""}], ",", "\[IndentingNewLine]", "1", ",", 
             " ", 
             RowBox[{
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}], "<>", "\"\<<td></td>\>\"", 
              "<>", 
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", "_", ",", " ", 
             RowBox[{
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}], "<>", 
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}], "<>", 
              RowBox[{"banners", "[", 
               RowBox[{"[", 
                RowBox[{"i", "++"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
            "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"StringJoin", " ", "@@", " ", "out"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "HTMLForm", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "HTMLForm", "]"}], " ", "=", " ", 
    RowBox[{"StringSplice", "[", 
     RowBox[{"this", ",", " ", 
      RowBox[{"ExtractDataCell", "[", 
       RowBox[{
        RowBox[{"this", "[", "Type", "]"}], "<>", "\"\< Template\>\""}], 
       "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "this_Page", ")"}], "[", "AllFiles", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"this", "[", "AllFiles", "]"}], " ", "=", " ", 
    RowBox[{"RemoveRepetitions", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"this", "[", "Files", "]"}], ",", " ", "\"\<Actions.js\>\"", 
        ",", " ", "\"\<AllPages.js\>\"", ",", " ", "\"\<Art.css\>\"", ",", 
        " ", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", "AllFiles", "]"}], "&"}], " ", "/@", " ", 
         RowBox[{"this", "[", "Subpages", "]"}]}]}], "\[IndentingNewLine]", 
       "}"}], "]"}], "]"}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQzdCQlS/i+NKRgaGtCEKrqMx0AdINtepgmqFfB0Iv
hNIyxhB5QwjNkJwzB0x35kHotkow3VBRBeGL1y8F0wcbwHTDpxYIX6AVQjfm
nQCLqxRCaHEnaV8QHesMoZ/PVvQDqUtZDaF/7ATTDacOQGiB0xD6MIRm0LwO
4f+C0sYcSmBxUS4w3bDTPxtMxwZCaIcMMM2QkAWhN5dDxA9D6ahtbWDxZXsg
tOg3CD0LQjdUaBn4g/2vDaETEiD0k2QQDQDQm4U+
  "]],

Cell["\<\
Data Cell Navigator:
<table width=100%><tr valign=top>
  <td align=left><#UpNavigator#><p><center><h1><#Title#></h1></center></td>
  <td align=right><table cellspacing=0 cellpadding=0><tr align=center>
    <td><a href=<#PreviousLeaf[HTMLFile]#>><img \
src=<#PreviousLeaf[IconFile]#> width=120 height=90 alt=\"Previous\"><br><font \
size=-1><font color=red>p</font>revious</font></a></td>
    <td>&nbsp;</td>
    <td align=center valign=top><font size=-1>keyboard<br>shortcuts</br>in \
<font color=red>red</font></font>
      <p><a href=\"javascript:keyaction('f')\"><font color=red>f</font>itted \
view</a>
      <br><a href=\"javascript:keyaction('r')\"><font \
color=red>r</font>andom</a>
    </td>
    <td>&nbsp;</td>
    <td><a href=<#NextLeaf[HTMLFile]#>><img src=<#NextLeaf[IconFile]#> \
width=120 height=90 alt=\"Next\"><br><font size=-1><font \
color=red>n</font>ext</font></a></td>
  </tr></table></td>
</tr></table>\
\>", "Text",
 CellChangeTimes->{{3.389564474234375*^9, 3.389564541734375*^9}, {
   3.3895648193125*^9, 3.389564915015625*^9}, {3.389565007390625*^9, 
   3.389565007609375*^9}, {3.389795822625*^9, 3.38979592140625*^9}, 
   3.389795956609375*^9, {3.39140848578125*^9, 3.391408488*^9}, {
   3.3914085383125*^9, 3.391408541171875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Make", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Make", "[", "this_Page", "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "htmlfile", ",", " ", "fulldate", ",", " ", "displaydate", ",", " ", 
        "icondate", ",", " ", "f", ",", " ", "s1", ",", " ", "s2"}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"this", "[", "Type", "]"}], "===", "\"\<Index\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"f", "=", 
           RowBox[{"OpenWrite", "[", "\"\<AllPages.js\>\"", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"WriteString", "[", 
           RowBox[{"f", ",", " ", "\"\<var AllPages = [\\n\>\""}], "]"}], ";",
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"WriteString", "[", 
             RowBox[{"f", ",", " ", 
              RowBox[{"\"\<  \\\"\>\"", "<>", 
               RowBox[{"#", "@", "HTMLFile"}], "<>", "\"\<\\\",\\n\>\""}]}], 
             "]"}], "&"}], " ", "/@", " ", 
           RowBox[{"Drop", "[", 
            RowBox[{"AllPages", ",", " ", 
             RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"WriteString", "[", 
             RowBox[{"f", ",", " ", 
              RowBox[{"\"\<  \\\"\>\"", "<>", 
               RowBox[{"#", "@", "HTMLFile"}], "<>", "\"\<\\\"\\n\>\""}]}], 
             "]"}], "&"}], " ", "/@", " ", 
           RowBox[{"Take", "[", 
            RowBox[{"AllPages", ",", " ", 
             RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"WriteString", "[", 
           RowBox[{"f", ",", " ", "\"\<]\\n\>\""}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Close", "[", "f", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"f", "=", 
           RowBox[{"OpenWrite", "[", "\"\<.htaccess\>\"", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"WriteString", "[", 
             RowBox[{"f", ",", "\[IndentingNewLine]", 
              RowBox[{"\"\<Redirect /~drorbn/Gallery/Places/\>\"", "<>", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
               "\"\<http://www.math.toronto.edu/~drorbn/Gallery/Places/\>\"", 
               "<>", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "<>", "\"\<\\n\>\""}]}], 
             "\[IndentingNewLine]", "]"}], "&"}], " ", "/@", " ", "Aliases"}],
           ";", "\[IndentingNewLine]", 
          RowBox[{"Close", "[", "f", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"this", "[", "Type", "]"}], "===", "\"\<Image\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"fulldate", "=", 
           RowBox[{"Date", " ", "/.", " ", 
            RowBox[{"FileInformation", "[", 
             RowBox[{"this", "[", "ImageFile", "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"displaydate", "=", 
           RowBox[{"Date", " ", "/.", " ", 
            RowBox[{"FileInformation", "[", 
             RowBox[{"this", "[", "DisplayImageFile", "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"icondate", "=", 
           RowBox[{"Date", " ", "/.", " ", 
            RowBox[{"FileInformation", "[", 
             RowBox[{"this", "[", "IconFile", "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"displaydate", "===", "Date"}], " ", "||", " ", 
             RowBox[{"displaydate", "<", "fulldate"}]}], ",", " ", 
            RowBox[{"Run", "[", 
             RowBox[{"StringReplace", "[", "\[IndentingNewLine]", 
              RowBox[{
              "\"\<convert -resize SIZE SOURCE TARGET\>\"", ",", 
               "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\"\<SIZE\>\"", " ", "\[Rule]", " ", 
                  RowBox[{"this", "[", "DisplaySizeString", "]"}]}], ",", " ", 
                 RowBox[{"\"\<SOURCE\>\"", " ", "\[Rule]", " ", 
                  RowBox[{"this", "[", "ImageFile", "]"}]}], ",", " ", 
                 RowBox[{"\"\<TARGET\>\"", " ", "\[Rule]", " ", 
                  RowBox[{"this", "[", "DisplayImageFile", "]"}]}]}], "}"}]}],
               "\[IndentingNewLine]", "]"}], "]"}]}], "\[IndentingNewLine]", 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"icondate", "===", "Date"}], ",", " ", 
            RowBox[{"Run", "[", 
             RowBox[{"StringReplace", "[", "\[IndentingNewLine]", 
              RowBox[{
              "\"\<convert -resize 240x180 SOURCE TARGET\>\"", ",", 
               "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\"\<SOURCE\>\"", " ", "\[Rule]", " ", 
                  RowBox[{"this", "[", "ImageFile", "]"}]}], ",", " ", 
                 RowBox[{"\"\<TARGET\>\"", " ", "\[Rule]", " ", 
                  RowBox[{"this", "[", "IconFile", "]"}]}]}], "}"}]}], 
              "\[IndentingNewLine]", "]"}], "]"}]}], "\[IndentingNewLine]", 
           "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<Index\>\"", ",", " ", "\"\<Place\>\""}], "}"}], ",", 
           RowBox[{"this", "[", "Type", "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"f", " ", "=", " ", 
           RowBox[{"OpenWrite", "[", 
            RowBox[{
             RowBox[{"this", "[", "FullPrefix", "]"}], "<>", 
             "\"\<Mirroring.html\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"WriteString", "[", 
           RowBox[{"f", ",", " ", 
            RowBox[{"StringSplice", "[", 
             RowBox[{"this", ",", " ", 
              RowBox[{
              "ExtractDataCell", "[", "\"\<Mirroring Template\>\"", "]"}]}], 
             "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Close", "[", "f", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"StringJoin", "[", 
           RowBox[{"ReadList", "[", 
            RowBox[{
             RowBox[{"this", "[", "HTMLFile", "]"}], ",", " ", "String"}], 
            "]"}], "]"}], " ", "=!=", " ", 
          RowBox[{"StringReplace", "[", 
           RowBox[{
            RowBox[{"this", "[", "HTMLForm", "]"}], ",", " ", 
            RowBox[{"\"\<\\n\>\"", " ", "\[Rule]", " ", "\"\<\>\""}]}], 
           "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"htmlfile", " ", "=", " ", 
           RowBox[{"OpenWrite", "[", 
            RowBox[{"this", "[", "HTMLFile", "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"WriteString", "[", 
           RowBox[{"htmlfile", ",", " ", 
            RowBox[{"this", "[", "HTMLForm", "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Close", "[", "htmlfile", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"this", "[", "AllFiles", "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "0"}], ";", " ", 
  RowBox[{"ObjectOrient", "[", 
   RowBox[{
    RowBox[{"Page", "[", "]"}], ",", " ", 
    RowBox[{"Pages", "[", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AllSubpages", "[", "this_Page", "]"}], " ", ":=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"this", ",", " ", 
      RowBox[{"AllSubpages", " ", "/@", " ", 
       RowBox[{"this", "[", "Subpages", "]"}]}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AllPages", " ", "=", " ", 
   RowBox[{"AllSubpages", "[", 
    RowBox[{"Page", "[", "0", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"#1", "[", "NextLeaf", "]"}], " ", "=", " ", "#2"}], ";", " ", 
       RowBox[{
        RowBox[{"#2", "[", "PreviousLeaf", "]"}], "=", "#1"}]}], ")"}], "&"}],
     ",", " ", 
    RowBox[{"{", 
     RowBox[{"AllPages", ",", " ", 
      RowBox[{"RotateLeft", "[", "AllPages", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.39032291728125*^9, 3.390322922984375*^9}, {
   3.394754387140625*^9, 3.394754491765625*^9}, {3.396406393515625*^9, 
   3.39640639390625*^9}, {3.396407566890625*^9, 3.3964076720625*^9}, {
   3.396407708140625*^9, 3.3964078114375*^9}, {3.396407884890625*^9, 
   3.3964078855625*^9}, {3.396408227359375*^9, 3.396408278140625*^9}, {
   3.39653289353125*^9, 3.396532927765625*^9}, {3.396533190953125*^9, 
   3.3965331911875*^9}, {3.396533331640625*^9, 3.396533381171875*^9}, 
   3.39653365584375*^9, {3.396534053375*^9, 3.39653405371875*^9}, {
   3.39696069971875*^9, 3.396960929578125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(PreIncrement :: \\\"rvalue\\\"\\) will be \
suppressed during this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\
\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.395725323078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PreIncrement", "::", "\<\"rvalue\"\>"}], ":", 
  " ", "\<\"\\!\\(fw\\) is not a variable with a value, so its value cannot \
be changed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/rvalue\\\", ButtonNote -> \
\\\"PreIncrement::rvalue\\\"]\\)\"\>"}]], "Message",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.395725323015625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PreIncrement", "::", "\<\"rvalue\"\>"}], ":", 
  " ", "\<\"\\!\\(fw\\) is not a variable with a value, so its value cannot \
be changed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/rvalue\\\", ButtonNote -> \
\\\"PreIncrement::rvalue\\\"]\\)\"\>"}]], "Message",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.395725323015625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PreIncrement", "::", "\<\"rvalue\"\>"}], ":", 
  " ", "\<\"\\!\\(fw\\) is not a variable with a value, so its value cannot \
be changed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/rvalue\\\", ButtonNote -> \
\\\"PreIncrement::rvalue\\\"]\\)\"\>"}]], "Message",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.395725322890625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"spell1\"\>"}], ":", 
  " ", "\<\"Possible spelling error: new symbol name \\\"P\\\" is similar to \
existing symbol \\\"Take\\\". \!\(
\*ButtonBox[\(More\[Ellipsis]\),
ButtonData:>\\\"General::spell1\\\",
ButtonStyle->\\\"RefGuideLinkText\\\",
ButtonFrame->\\\"None\\\"]\)\"\>"}]], "Message",
 GeneratedCell->False,
 CellAutoOverwrite->False]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Code Recycling", "Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", "\"\<C:/drorbn/projects/Gallery/Places\>\"", "]"}], 
  ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Experiments", "Section",
 CellChangeTimes->{{3.445944799757*^9, 3.445944801432*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{
   "GalleryDirectory", "=", "\"\<C:/drorbn/projects/Gallery/Places\>\""}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReadImage", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"GalleryDirectory", ",", "\[IndentingNewLine]", 
       RowBox[{"Last", "[", 
        RowBox[{"FileNameSplit", "[", "#", "]"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], "]"}], "]"}], "&"}], " ", "/@", " ", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"FileNames", "[", "\[IndentingNewLine]", 
     RowBox[{"\"\<*.JPG\>\"", ",", "\[IndentingNewLine]", 
      RowBox[{
      "{", "\"\<C:\\\\drorbn\\\\AcademicPensieve\\\\2009-02\\\\Bucaramanga \
Excusrsion\>\"", "}"}]}], "\[IndentingNewLine]", "]"}], ",", "All"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.4470247261855*^9, 3.4470247327815*^9}, 
   3.4470254319665003`*^9, 3.448743882804*^9, {3.4487439263310003`*^9, 
   3.4487439326400003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Title -> \\\"Children\\\", Text -> \\\"Outside \
Barrancabermeja and along the main road to Medellin, February 21, 2009\\\"\\r\
\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744073928*^9}],

Cell[BoxData["\<\"Title -> \\\"Fisherman\\\", Text -> \\\"On the Rio \
Magdalena in Honda, February 22, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744075743*^9}],

Cell[BoxData["\<\"Title -> \\\"Fishing (1)\\\", Text -> \\\"On the Rio \
Magdalena in Honda, February 22, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487440781689997`*^9}],

Cell[BoxData["\<\"Title -> \\\"Fishing (2)\\\", Text -> \\\"On the Rio \
Magdalena in Honda, February 22, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744080301*^9}],

Cell[BoxData["\<\"Title -> \\\"Everyone\\\", Text -> \\\"Everyone present in \
a small Cafe in Puerto Boyaca on the Rio Magdalena, mid-day, February 22, \
2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487440827530003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Barrancabermeja\\\", Text -> \\\"The Rio \
Magdalena in Barrancabermeja, February 21, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744086133*^9}],

Cell[BoxData["\<\"Title -> \\\"Puente de Boyac\[AAcute]\\\", Text -> \\\"Site \
of the Battle of Boyac\[AAcute], February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744088984*^9}],

Cell[BoxData["\<\"Title -> \\\"Lara Simone Suarez Lopez\\\", Text -> \\\"At \
Puente de Boyac\[AAcute], February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487440917130003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Men\\\", Text -> \\\"At Puente de Boyac\
\[AAcute], February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744094523*^9}],

Cell[BoxData["\<\"Title -> \\\"Hat\\\", Text -> \\\"At Puente de Boyac\
\[AAcute], February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744097311*^9}],

Cell[BoxData["\<\"Title -> \\\"Villa de Leiva\\\", Text -> \\\"February 19, \
2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744100343*^9}],

Cell[BoxData["\<\"Title -> \\\"Waterfall (1)\\\", Text -> \\\"Near Villa de \
Leiva, February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744103125*^9}],

Cell[BoxData["\<\"Title -> \\\"Waterfall (2)\\\", Text -> \\\"Near Villa de \
Leiva, February 19, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744106218*^9}],

Cell[BoxData["\<\"Title -> \\\"Hooks\\\", Text -> \\\"Socorro, February 20, \
2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744109013*^9}],

Cell[BoxData["\<\"Title -> \\\"Carving Knife\\\", Text -> \\\"Socorro, \
February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744112243*^9}],

Cell[BoxData["\<\"Title -> \\\"Guard Duty\\\", Text -> \\\"On the main road \
near San Gil, February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744115094*^9}],

Cell[BoxData["\<\"Title -> \\\"Troughs\\\", Text -> \\\"On the main road near \
San Gil, February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487441178900003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Dark Glasses\\\", Text -> \\\"Above the \
Chicamocha Canyon, February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487441206210003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Bucaramanga\\\", Text -> \\\"As seen from the \
airport access road, way above the city, February 20, 2009\\\"\\r\\n\"\>"], \
"Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744123359*^9}],

Cell[BoxData["\<\"Title -> \\\"Dog\\\", Text -> \\\"Outside Barrancabermeja, \
February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744126324*^9}],

Cell[BoxData["\<\"Title -> \\\"Cat\\\", Text -> \\\"Outside Barrancabermeja, \
February 20, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487441292390003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Cooking (1)\\\", Text -> \\\"On the main road \
between Barrancabermeja and Puerto Boyaca, February 21, 2009\\\"\\r\\n\"\>"], \
"Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744132117*^9}],

Cell[BoxData["\<\"Title -> \\\"Cooking (2)\\\", Text -> \\\"Under the \
main-road bridge in Honda, February 21, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487441348929996`*^9}],

Cell[BoxData["\<\"Title -> \\\"Conflict\\\", Text -> \\\"On the main road \
between Barrancabermeja and Puerto Boyaca, February 21, 2009\\\"\\r\\n\"\>"], \
"Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744136486*^9}],

Cell[BoxData["\<\"Title -> \\\"Safety\\\", Text -> \\\"Climbing from Honda to \
Villeta, February 21, 2009\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.4487441376400003`*^9}],

Cell[BoxData["\<\"Title -> \\\"Savanna (1)\\\", Text -> \\\"February 21, 2009\
\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.448744139333*^9}],

Cell[BoxData["\<\"Title -> \\\"Savanna (2)\\\", Text -> \\\"February 21, 2009\
\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.44874414155*^9}],

Cell[BoxData["\<\"Title -> \\\"Savanna (3)\\\", Text -> \\\"February 21, 2009\
\\\"\\r\\n\"\>"], "Print",
 CellChangeTimes->{3.4470242833645*^9, 3.4470255578035*^9, 
  3.4487439430030003`*^9, 3.44874414359*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Children\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Outside Barrancabermeja and along the main road \
to Medellin, February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3500", ",", "3500"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Children.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Fisherman\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the Rio Magdalena in Honda, February 22, 2009\
\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3004", ",", "2000"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Fishing1.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Fishing (1)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the Rio Magdalena in Honda, February 22, 2009\
\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Fishing2.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Fishing (2)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the Rio Magdalena in Honda, February 22, 2009\
\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Fishing3.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Everyone\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Everyone present in a small Cafe in Puerto \
Boyaca on the Rio Magdalena, mid-day, February 22, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3602", ",", "2401"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"MagdalenaCafe.jpg\"\>"}]}], "]"}], 
   ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Barrancabermeja\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"The Rio Magdalena in Barrancabermeja, February \
21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3604", ",", "3606"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"OnTheRioMagdalena.jpg\"\>"}]}], 
    "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Puente de Boyac\[AAcute]\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Site of the Battle of Boyac\[AAcute], February \
19, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200178.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Lara Simone Suarez Lopez\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"At Puente de Boyac\[AAcute], February 19, 2009\"\
\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200181.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Men\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"At Puente de Boyac\[AAcute], February 19, 2009\"\
\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200182.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Hat\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"At Puente de Boyac\[AAcute], February 19, 2009\"\
\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200184.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Villa de Leiva\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"February 19, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200188.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Waterfall (1)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Near Villa de Leiva, February 19, 2009\"\>"}], 
     ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200192.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Waterfall (2)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Near Villa de Leiva, February 19, 2009\"\>"}], 
     ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2200193.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Hooks\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"Socorro, February 20, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210194.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Carving Knife\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"Socorro, February 20, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210196.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Guard Duty\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the main road near San Gil, February 20, 2009\
\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210200.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Troughs\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the main road near San Gil, February 20, 2009\
\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210205.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Dark Glasses\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Above the Chicamocha Canyon, February 20, 2009\"\
\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210207.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Bucaramanga\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"As seen from the airport access road, way above \
the city, February 20, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210212.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Dog\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Outside Barrancabermeja, February 20, \
2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210271.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Cat\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Outside Barrancabermeja, February 20, \
2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2736", ",", "3648"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2210290.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Cooking (1)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the main road between Barrancabermeja and \
Puerto Boyaca, February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2220315.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Cooking (2)\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Under the main-road bridge in Honda, February \
21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3648", ",", "2736"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"P2220364.JPG\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Conflict\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"On the main road between Barrancabermeja and \
Puerto Boyaca, February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2403", ",", "1800"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Roosters.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Safety\"\>"}], ",", 
     RowBox[{
     "Text", "\[Rule]", "\<\"Climbing from Honda to Villeta, February 21, \
2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2402", ",", "1600"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Safety.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Savanna (1)\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3005", ",", "2000"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Savanna1.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Savanna (2)\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Savanna2.jpg\"\>"}]}], "]"}], ",", 
   RowBox[{"Page", "[", 
    RowBox[{"\<\"Image\"\>", ",", 
     RowBox[{"Title", "\[Rule]", "\<\"Savanna (3)\"\>"}], ",", 
     RowBox[{"Text", "\[Rule]", "\<\"February 21, 2009\"\>"}], ",", 
     RowBox[{"FullSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3204", ",", "2404"}], "}"}]}], ",", 
     RowBox[{"ImageFile", "\[Rule]", "\<\"Savanna3.jpg\"\>"}]}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4470243147135*^9, 3.4470255850155*^9, 3.448743954679*^9, 
  3.448744143625*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{1104, 773},
WindowMargins->{{Automatic, 89}, {44, Automatic}},
ShowSelection->True,
Magnification->1.,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 142, 2, 83, "Title"],
Cell[CellGroupData[{
Cell[734, 28, 181, 2, 27, "Subsubsection"],
Cell[918, 32, 124, 1, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1079, 38, 87, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[1191, 43, 996, 26, 152, "Input"],
Cell[2190, 71, 1595, 27, 30, "Output"]
}, Open  ]],
Cell[3800, 101, 136, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[3961, 107, 972, 27, 31, "Input"],
Cell[4936, 136, 2111, 33, 240, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7096, 175, 92, 1, 71, "Section"],
Cell[7191, 178, 2995, 63, 392, "Input",
 InitializationCell->True],
Cell[10189, 243, 2150, 51, 192, "Input",
 Evaluatable->False],
Cell[12342, 296, 1325, 28, 152, "Input",
 InitializationCell->True],
Cell[13670, 326, 11779, 265, 692, "Input",
 InitializationCell->True],
Cell[25452, 593, 15577, 339, 1012, "Input",
 InitializationCell->True],
Cell[41032, 934, 21967, 472, 1252, "Input",
 InitializationCell->True],
Cell[63002, 1408, 7069, 144, 392, "Input",
 InitializationCell->True],
Cell[70074, 1554, 14408, 301, 852, "Input",
 InitializationCell->True],
Cell[84485, 1857, 6942, 145, 412, "Input",
 InitializationCell->True],
Cell[91430, 2004, 728, 15, 137, "Text"],
Cell[92161, 2021, 14530, 315, 1012, "Input",
 InitializationCell->True],
Cell[106694, 2338, 15971, 343, 932, "Input",
 InitializationCell->True],
Cell[122668, 2683, 53452, 1088, 3952, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[176157, 3776, 27, 0, 71, "Section"],
Cell[176187, 3778, 326, 8, 31, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[176538, 3790, 94, 1, 36, "Subsection"],
Cell[176635, 3793, 1702, 44, 132, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[178374, 3842, 47, 0, 36, "Subsection"],
Cell[178424, 3844, 1634, 36, 132, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[180095, 3885, 40, 0, 36, "Subsection"],
Cell[180138, 3887, 2494, 65, 232, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[182669, 3957, 37, 0, 36, "Subsection"],
Cell[182709, 3959, 1918, 45, 232, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[184664, 4009, 36, 0, 36, "Subsection"],
Cell[184703, 4011, 1058, 27, 72, "Input",
 InitializationCell->True],
Cell[185764, 4040, 192, 5, 83, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185993, 4050, 40, 0, 36, "Subsection"],
Cell[186036, 4052, 1592, 40, 479, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187665, 4097, 33, 0, 36, "Subsection"],
Cell[187701, 4099, 1985, 54, 112, "Input",
 InitializationCell->True],
Cell[189689, 4155, 521, 11, 119, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190247, 4171, 40, 0, 36, "Subsection"],
Cell[190290, 4173, 1339, 38, 479, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191666, 4216, 33, 0, 36, "Subsection"],
Cell[191702, 4218, 7657, 214, 492, "Input",
 InitializationCell->True],
Cell[199362, 4434, 678, 17, 209, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200077, 4456, 40, 0, 36, "Subsection"],
Cell[200120, 4458, 6895, 130, 1019, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207052, 4593, 161, 2, 36, "Subsection"],
Cell[207216, 4597, 4044, 106, 332, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[211297, 4708, 107, 1, 36, "Subsection"],
Cell[211407, 4711, 4004, 86, 821, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215448, 4802, 46, 0, 36, "Subsection"],
Cell[215497, 4804, 8816, 239, 672, "Input",
 InitializationCell->True],
Cell[224316, 5045, 1268, 27, 263, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[225633, 5078, 23, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[225681, 5082, 9572, 217, 952, "Input",
 InitializationCell->True],
Cell[235256, 5301, 492, 10, 22, "Message"],
Cell[235751, 5313, 482, 10, 22, "Message"],
Cell[236236, 5325, 482, 10, 22, "Message"],
Cell[236721, 5337, 482, 10, 22, "Message"],
Cell[237206, 5349, 398, 10, 22, "Message"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[237653, 5365, 33, 0, 71, "Section"],
Cell[237689, 5367, 129, 4, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[237855, 5376, 90, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[237970, 5381, 1036, 25, 172, "Input"],
Cell[CellGroupData[{
Cell[239031, 5410, 271, 4, 62, "Print"],
Cell[239305, 5416, 240, 3, 62, "Print"],
Cell[239548, 5421, 247, 3, 62, "Print"],
Cell[239798, 5426, 242, 3, 62, "Print"],
Cell[240043, 5431, 296, 4, 62, "Print"],
Cell[240342, 5437, 253, 3, 62, "Print"],
Cell[240598, 5442, 262, 3, 62, "Print"],
Cell[240863, 5447, 258, 3, 62, "Print"],
Cell[241124, 5452, 232, 3, 62, "Print"],
Cell[241359, 5457, 232, 3, 62, "Print"],
Cell[241594, 5462, 214, 3, 62, "Print"],
Cell[241811, 5467, 234, 3, 62, "Print"],
Cell[242048, 5472, 234, 3, 62, "Print"],
Cell[242285, 5477, 214, 3, 62, "Print"],
Cell[242502, 5482, 222, 3, 62, "Print"],
Cell[242727, 5487, 241, 3, 62, "Print"],
Cell[242971, 5492, 243, 3, 62, "Print"],
Cell[243217, 5497, 246, 3, 62, "Print"],
Cell[243466, 5502, 271, 4, 62, "Print"],
Cell[243740, 5508, 228, 3, 62, "Print"],
Cell[243971, 5513, 233, 3, 62, "Print"],
Cell[244207, 5518, 273, 4, 62, "Print"],
Cell[244483, 5524, 253, 3, 62, "Print"],
Cell[244739, 5529, 270, 4, 62, "Print"],
Cell[245012, 5535, 243, 3, 62, "Print"],
Cell[245258, 5540, 211, 3, 62, "Print"],
Cell[245472, 5545, 210, 3, 62, "Print"],
Cell[245685, 5550, 210, 3, 62, "Print"]
}, Open  ]],
Cell[245910, 5556, 11857, 275, 658, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)