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