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