anchor.diff:  
       // read
       let read = 
  -        [ "id", box (id.ToString()) ] 
  +        [ "id", box id ] 
           |> query<Person> store "select data from Person where data->>'_id' = :id"
       o |> should equal read.[0]
       Array.length read |> should equal 1
  
positive.code: 
      // read
      let read = 
          [ "id", box (id.ToString()) ] 
          |> query<Person> storeSql @"SELECT [Data] from Person 
  Where Data.value('(/Person/_id)[1]', 'uniqueidentifier') = @id"
      o |> should equal read.[0]
  
negative.code: 
      // read again :{P
      let readUpdated = 
          ["id", box id] 
          |> query<Person> store "select data from Person where data->>'_id' = :id"
      updated |> should equal readUpdated.[0]
      Array.length readUpdated |> should equal 1
  