(* 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[    216012,       5025]
NotebookOptionsPosition[    211769,       4882]
NotebookOutlinePosition[    212180,       4900]
CellTagsIndexPosition[    212137,       4897]
WindowFrame->Normal
ContainsDynamic->False*)

(* 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}]
}, Open  ]],

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

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", "\"\<C:/drorbn/projects/Gallery/Places\>\"", "]"}], 
  ";", 
  RowBox[{
   RowBox[{
    RowBox[{"ReadImage", "[", 
     RowBox[{"Last", "[", 
      RowBox[{"StringSplit", "[", 
       RowBox[{"#", ",", " ", "\"\<\\\\\>\""}], "]"}], "]"}], "]"}], "&"}], 
   " ", "/@", " ", 
   RowBox[{"FileNames", "[", 
    RowBox[{"\"\<*.jpg\>\"", ",", " ", 
     RowBox[{
     "{", "\"\<C:\\\\Documents and Settings\\\\Dror\\\\Desktop\\\\temp\>\"", 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.3915027580625*^9, 3.391502762703125*^9}, {
   3.39150279725*^9, 3.391502806859375*^9}, {3.391502847484375*^9, 
   3.391502874046875*^9}, {3.39150306628125*^9, 3.391503080515625*^9}, {
   3.391503116125*^9, 3.391503121203125*^9}, {3.39150324953125*^9, 
   3.39150326675*^9}, {3.39150330646875*^9, 3.3915033149375*^9}, {
   3.391503367796875*^9, 3.391503371734375*^9}, {3.394683821375*^9, 
   3.394683825484375*^9}, {3.394683858484375*^9, 3.39468385984375*^9}, 
   3.3946839484375*^9, {3.39468405103125*^9, 3.394684096453125*^9}, 
   3.394684351171875*^9, 3.396133401020125*^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}}]
}, 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]", "}"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.395248515453125*^9, 3.395248536328125*^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"}], "}"}]}], ",",