GOAL
  out {
    resource [ "stdout:", "html" ],
	  dl [ 
	     all div [ dt [ &join(var Year,"-",var Month, "-",var Day, ", ",var StartTimeH, ":", var StartTimeM, "-", var EndTime), a [ attributes{ href { &join("videos/",var Year,var Month, var Day, "_", var StartTimeH, var StartTimeM, ".mov") } }, "(video)" ] ],
	     dd [ &join(var Speaker, ", "), em[ var Title ] ]
	    ] order by lexical [ Year, Month, Day, StartTimeH ] ascending
	  ]
	  
  }
FROM
  ns-prefix atom = "http://www.w3.org/2005/Atom"
  ns-prefix gd   = "http://schemas.google.com/g/2005"
  in {
    resource [ "http://www.google.com/calendar/feeds/sc1lgv2s0nqgktgn9rdneilv6g%40group.calendar.google.com/public/full?start-min=2007-03-01T00:00:00&start-max=2007-10-30T23:59:00", "xml" ],
  atom:feed {{
    atom:entry {{
      atom:title {{ var Title }},
      gd:when {{
        attributes {{
          atom:startTime{ /^(var Year ->[0-9]{4})-(var Month ->[0-9]{2})-(var Day ->[0-9]{2})T(var StartTimeH ->[0-9]{2}):(var StartTimeM ->[0-9]{2}):[0-9]{2}/},
	  atom:endTime{ /^.*T(var EndTime ->[0-9]{2}:[0-9]{2}):[0-9]{2}/ }
	}}
      }},
       atom:content {{ /^.*Speaker:( ?)(var Speaker ->.+)Type:( ?)(var Type ->.+)Abstract:( ?)(var Abstract ->.+)/ }}
    }}
  }}
  }
END