anchor.diff:  let authenticate (%s : %s) =
     let sql = "
   SELECT * FROM %s.Users
  -WHERE email = :email
  +WHERE email = @email
   "
     use connection = connection connectionString
     use command = command connection sql
  
positive.code:   let search = searchHowToClause how value
    let sql =
      sprintf "SELECT * FROM %s.%s
  WHERE lower(%s) LIKE lower(:search)
  LIMIT 500" field
  
    use connection = connection connectionString
  
negative.code: let tryById_%s id =
    let sql = "
  SELECT * FROM %s.%s
  WHERE %s = @%s
  "
    use connection = connection connectionString
    use command = command connection sql
  