anchor.diff:  let insertValues page =
     let format field =
       if field.FieldType = Id
  -    then "DEFAULT"
  +    then ""
       else sprintf "@%s" field.AsDBColumn
   
     page.Fields
  
positive.code: 
  let insertColumns page =
    page.Fields
    |> List.filter (fun field -> field.FieldType <> ConfirmPassword)
    |> List.map (fun field -> field.AsDBColumn)
    |> List.map (pad 2)
    |> flattenWith ","
  
negative.code:   sprintf """
  let authenticate (%s : %s) =
    let sql = "
  SELECT * FROM %s.dbo.Users
  WHERE email = @email
  "
    use connection = connection connectionString
  