anchor.diff:  
   namespace DigitalLogic.Numeric
   
  +open System
   open Microsoft.FSharp.Core
   open Microsoft.FSharp.Core.LanguagePrimitives
   open Microsoft.FSharp.Core.Operators
  
positive.code: 
  /// Functions for converting between numbers in various formats (ints, big ints, strings etc).
  module Conversions = begin
  
    (** Integer to hex character (0..15) *)
    let int_of_hex_char c = 
  
negative.code:   let reduce op s = 
      match List.length s with
      | 0 | 1 -> failwith ("Cant reduce 0 or 1 bits")
      | _ -> List.fold (fun acc x -> op acc x) (List.head s) (List.tail s)
  
    let reduce_1 op s = 
      match List.length s with
      | 1 -> List.head s 
      | _ -> reduce op s
  
    let neq (a : ArrayBits) (b : ArrayBits) = bnot (eq a b)
  