anchor.diff:          this.Window.StockPricesChart.Series.Add series
       
       override this.EventStreams = 
  -        let buttonClicks = 
  -            [
  +        [ 
  +            yield! [
                   this.Window.Calculate, Calculate
                   this.Window.Clear, Clear
                   this.Window.CelsiusToFahrenheit, CelsiusToFahrenheit
  
positive.code:             )
          }
  
      member this.InputChanging(newValue, cancel) model =
          match Int32.TryParse newValue with 
          | false, _  ->  cancel()
          | _ -> ()
  
      member this.YChanged text model = 
          Debug.WriteLine("Start YChanged.")
          if text <> "0"
  
negative.code:     | Hex1
      | Hex2
      | AddStockToPriceChart
      | YChanged of string
  
  type SampleView() as this =
  