anchor.diff:          let printTbl () =
               for i in 0..s.Length-1 do
                   for j in 0..s.Length-1 do
  -                    let cd = recTable.[i,j] |> Array.filter (fun x -> x.IsSome) |> fun a-> a.Length
  +                    let cd = recTable.[i * rowSize + j] |> Array.filter (fun x -> x.IsSome) |> fun a-> a.Length
                       printf "! %s !" (string cd)
                   printfn " "
               printfn "" 
  
positive.code:             String.concat " " [stateString; ":"; "label ="; lblString lbl; "weight ="; string weight]
              
          let rec out i last =
              let cellDatas = recTable.[0, s.Length-1]
              if i <= last 
              then 
                  if cellDatas.[i].IsSome 
  
negative.code:                 else "" :: out (i+1) last
              else [""]
  
          let lastIndex = (recTable.[0 * rowSize + s.Length-1]).Length - 1
          
          out 0 lastIndex
  
  