anchor.diff:      type Gender = Male | Female
   
       type User =
  -        { name: Name; age: int; gender: Gender; comments: string; participates: bool; friends: string[] }
  +        { name: Name; age: int; gender: Gender; comments: string; participates: bool; friends: Name[] }
   
           [<JavaScript>]
           static member Pretty u =
  
positive.code:             gender = Model.Male
              comments = "Blah blah blah"
              participates = true
              friends = [|"Ernesto"; "Loic"|]
          }
      ViewModel.User initUser
      |> Piglet.Render View.User 
negative.code:                         TD [] |> C.Show liveUser (function
                              | {comments = ""} -> [I [Text "(no comment)"]]
                              | {comments = c} -> [Span [Text c]])
                          TD [] |> C.ShowString friends.Output
                              (Seq.map (fun n -> n.firstName + " " + n.lastName)
                              >> String.concat ", ")
                      ]
                  ]
              ]
  