anchor.diff:  
   let edges = constructSTG header map
   
  -let writeBoolArray (a : bool []) =
  +let writeBoolArray a =
       Array.map (sprintf ",%b") a |> Array.reduce (+)
   
   System.IO.File.WriteAllLines(outputStatesCsvFilename, let header = header |> Array.map (sprintf ",%s") |> Array.reduce (+)
  
positive.code: ﻿#r "FSharp.Data.dll"
  #r "FSharpx.Core.dll"
  
  open System.Collections
  
negative.code:         let low = boolArrayToUint32 a.[32 ..]
          (uint64 high <<< (Array.length a.[32 ..])) ||| uint64 low
  
  let toUniqueBitvectors rows =
      let seen = HashSet<uint64>()
      Map.ofList [ for (id, array) in rows do
                       let bitVec = boolArrayToUint64 array
  