anchor.diff:      ]
   ]
   
  +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 [
  
positive.code:         body [
              divId "header" [
                  h1 (aHref Path.home (text "F# Suave Music Store"))
              ]
  
              divId "container" container
  
negative.code: 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)
  