anchor.diff:                              v * 100
                           ) v { 1 .. need }
   
  -                printfn "weight: %d" v
  +                //printfn "weight: %d" v
                   v
  -
   
               let lookup word =
                   // TODO if we just search for the word without the weight, we could
  
positive.code:                         else has
                  ) terms
  
              let docids = 
                  found
                  |> Array.collect (fun (term,entries) ->
                      let neg = 
                          match term with
                          | plan.Word (neg,_) -> neg
  
negative.code:                 stmt.bind_blob(2, kmax)
                  while raw.SQLITE_ROW = stmt.step() do
                      let k = stmt.column_blob(0)
                      let w = get_weight_from_index_entry k
                      let did = stmt.column_int64(1)
                      entries.Add(did,w)
                  stmt.reset()
                  entries.ToArray()
  
  