anchor.diff:  
   //Support for sprocs that return ref cursors and has in parameters
   let getemployees hireDate =
  -    let results = (ctx.Procedures.GET_EMPLOYEES_STARTING_AFTER.Invoke hireDate)
  +    let results = (ctx.Procedures.GetEmployeesStartingAfter.Invoke hireDate)
       [
         for e in results.RESULTS do
           yield e.MapTo<Employee>()
  
positive.code: //Can customise SQLEntity mapping
  let countries = 
      query {
          for emp in ctx.``[HR].[COUNTRIES]`` do
          select emp
      } 
      |> Seq.map (fun e -> e.MapTo<Country>(fun (prop,value) -> 
  
negative.code: 
  let employeesJob = 
      query {
              for emp in ctx.Employees do
              for manager in emp.EMP_MANAGER_FK do
              join dept in ctx.Departments on (emp.DepartmentId = dept.DepartmentId)
              where ((dept.DepartmentName |=| [|"Sales";"Executive"|]) && emp.FirstName =% "David")
              select (emp.FirstName, emp.LastName, manager.FirstName, manager.LastName )
      } |> Seq.toList
  
  //Can map SQLEntities to a domain type
  let topSales5ByCommission = 
      query {
          for emp in ctx.Employees do
          sortByDescending emp.CommissionPct
          select emp
          take 5
      } 
  