anchor.diff:  
       /// Primitive version of AddFloatToTrace
       [<ReflectedDefinition>]
  -    let AddFloatToTrace (ts:TraceScore) (opc:int) =
  +    let private AddFloatToTrace (ts:TraceScore) (opc:int) =
           ts.Value + opc
   
       /// Primitive version of DiagonalCost
       [<ReflectedDefinition>]
  -    let diagonalCost (cell:Cell) (item1:int) (item2:int) =
  +    let private diagonalCost (cell:Cell) (item1:int) (item2:int) =
           let sim' = if item1 = item2 then 5 else -4
           let mM = AddFloatToTrace cell.M sim' 
           let mY = AddFloatToTrace cell.Y sim' 
  
positive.code: 
              matrix
  
      module ParallelSmithWaterman =
          let run (fstSeq:string) (sndSeq:string) =
              let fstSeqPrim = fstSeq |> stringToCharInts
              let sndSeqPrim = sndSeq |> stringToCharInts
  
negative.code:         new Cell(newBestTrace, x', y')
      
      /// Primitive function for calculating the max cell in a matrix.
      let private indexOfMaxInMatrix (matrix:(Cell)[,]) =
          let mutable val_best = 0
          let mutable i_best = 0
          let mutable j_best = 0
  