anchor.diff:  
   let insertColumns page =
     page.Fields
  -  |> List.filter (fun field -> field.FieldType <> ConfirmPassword)
  +  |> List.filter (fun field -> field.FieldType <> Id && field.FieldType <> ConfirmPassword)
     |> List.map (fun field -> field.AsDBColumn)
     |> List.map (pad 2)
     |> flattenWith ","
  
positive.code:   sprintf """
  let tryById_%s id =
    let sql = "
  SELECT * FROM %s.%s
  WHERE %s = @%s
  "
    use connection = connection connectionString
  
negative.code:   sprintf """
  let getMany_%s () =
    let sql = "
  SELECT TOP 500 * FROM %s.dbo.%s
  "
    use connection = connection connectionString
    use command = command connection sql
  