anchor.diff:  let aHref href = tag "a" ["href", href]
   let cssLink href = linkAttr [ "href", href; " rel", "stylesheet"; " type", "text/css" ]
   let ul xml = tag "ul" [] (flatten xml)
  +let ulAttr attr xml = tag "ul" attr (flatten xml)
   let li = tag "li" []
   let imgSrc src = imgAttr [ "src", src ]
   let em s = tag "em" [] (text s)
  
positive.code:         body [
              divId "header" [
                  h1 (aHref Path.home (text "F# Suave Music Store"))
              ]
  
              divId "container" container
  
negative.code:     ]
  ]
  
  let partNav = 
      ulAttr ["id", "navlist"] [ 
          li (aHref Path.home (text "Home"))
          li (aHref Path.Store.overview (text "Store"))
          li (aHref Path.Admin.manage (text "Admin"))
      ]
  
  let index container = 
      html [
          head [
  