anchor.diff:  type CreditsViewController () as controller =
       inherit UIViewController ("CreditsViewController", null)
   
  -    let mutable products:(string * string * string * string) list = []
  +    let mutable products:(string * string * string * string * SKProduct) list = []
   
       let localizedPrice (product:SKProduct) =
           let formatter = new NSNumberFormatter()
  
positive.code:                                 product.ProductIdentifier,
                                  product.LocalizedTitle,
                                  product.LocalizedDescription,
                                  (localizedPrice product)
                              )
                      ]
  
  
negative.code: 
              override this.RowSelected(tableView, indexPath) =
                  tableView.DeselectRow (indexPath, false)
                  let (id, name, desc, price, product) = products.[indexPath.Row]
                  let alert = new UIAlertView (Title = sprintf "Purchase %s" name, Message = sprintf "Would you like to purchase %s for %s" name price)
                  alert.AddButton "Confirm" |> ignore
                  alert.AddButton "Cancel" |> ignore
                  alert.Clicked.Add(fun args ->
                      match args.ButtonIndex with
                      | 0 ->
                          let payment = SKMutablePayment.PaymentWithProduct product
                          payment.Quantity <- 1
                          SKPaymentQueue.DefaultQueue.AddPayment(payment)
                      | _ -> ()
                  )
                  alert.Show ()
      }
  
      let products = { 
  