anchor.diff:  let tryById_%s id =
     let sql = "
   SELECT * FROM %s.%s
  -WHERE %s = :%s
  +WHERE %s = @%s
   "
     use connection = connection connectionString
     use command = command connection sql
  
positive.code: let updateColumns page =
    page.Fields
    |> List.filter (fun field -> field.FieldType <> ConfirmPassword)
    |> List.map (fun field -> sprintf """%s = :%s""" field.AsDBColumn field.AsDBColumn)
    |> List.map (pad 1)
    |> flattenWith ","
  
  
negative.code: let authenticate (%s : %s) =
    let sql = "
  SELECT * FROM %s.Users
  WHERE email = @email
  "
    use connection = connection connectionString
    use command = command connection sql
  