anchor.diff:        |> List.map (pad 2)
         |> flatten
   
  -    sprintf """let validate%s (%s : %s) =
  +    sprintf """let validation_%s (%s : %s) =
     [
   %s
     ] |> List.choose id
  -  """ page.AsFormType page.AsFormVal page.AsFormType validations
  +  """ page.AsFormVal page.AsFormVal page.AsFormType validations
   
   let contextTemplate (page : Page) = sprintf """context "%s" """ page.Name |> trimEnd |> pad 1
   
  
positive.code:     [
        GET >=> OK view_register
        POST >=> bindToForm %s (fun %s ->
          let validation = validate%s %s
          if validation = [] then
            let converted = convert%s %s
            let id = insert_%s converted
            FOUND "/"
          else
            OK (view_errored_%s validation %s))
      ]""" page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsFormType page.AsFormVal page.AsVal page.AsVal page.AsFormVal
      | Login    ->
        sprintf """
  let login =
  
negative.code:   """ page.AsType (propertyTemplate page)
  
  let bundleSecondTypeTemplate page = if needsFormType page then sprintf "%s" page.AsFormType else sprintf "DummyForm"
  let bundleValidateFormTemplate page = if needsValidation page then sprintf "Some validation_%s" page.AsFormVal else "None"
  let bundleConvertFormTemplate page = if needsConvert page then sprintf "Some convert%s" page.AsFormType else "None"
  let bundleFakeSingleTemplate page = if needsFakeData page then sprintf "Some fake_%s" page.AsVal else "None"
  let bundleFakeManyTemplate page = if needsFakeData page then sprintf "Some fake_many_%s" page.AsVal else "None"
  