anchor.diff:          body [
               divId "header" [
                   h1 (aHref Path.home (text "F# Suave Music Store"))
  +                partNav
               ]
   
               divId "main" container
  
positive.code: let aHref href = tag "a" ["href", href]
  
  let ul xml = tag "ul" [] (flatten xml)
  let li = tag "li" []
  
  let cssLink href = linkAttr ["href", href; "rel", "stylesheet"; "type", "text/css"]
  
negative.code:         s.Substring(0, k - 3) + "..."
      else s
  
  // Views
  
  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 home = [
      h2 "Home"
  ]
  