anchor.diff:          }
   
       [<JavaScript>]
  -    let Many inits init p =
  -        let pInit = p init
  -        let m = Many.CollectionWithDefault(p, inits, pInit, init)
  +    let Many init addValue itemForm =
  +        let pInit = itemForm addValue
  +        let m = Many.CollectionWithDefault(itemForm, init, pInit, addValue)
           {
               id = Fresh.Id()
               view = m.View
               render = fun f -> f m
           }
   
  -    let Dependent input output =
  -        let d = Dependent.Make input output
  +    let Dependent primary dependent =
  +        let d = Dependent.Make primary dependent
           {
               id = Fresh.Id()
               view = d.View
  
positive.code:     let IsNotEmpty msg p =
          Is (fun x -> x <> "") msg p
  
      let IsMatch (re: string) msg p =
          Is (RegExp(re).Test) msg p
  
      let MapValidCheckedInput msg p =
          p |> Form.MapResult (fun res ->
  
negative.code:         MapResult (fun x -> f x; x) p
  
      [<JavaScript>]
      let ManyForm init addForm itemForm =
          let m = Many.Collection(itemForm, init, addForm)
          {
              id = Fresh.Id()
              view = m.View
  