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:     [
        GET >=> OK view_login
        POST >=> bindToForm %s (fun %s ->
          let validation = validation_%s %s
          if validation = [] then
            let converted = convert%s %s
            ignore converted
            OK ""
          else
            OK (view_errored_%s validation %s))
      ]"""  page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsVal page.AsFormVal
  
    pageHandlerTemplate page page.PageMode
  
  