anchor.diff:      
       let ctable =
           let inline maxAsciiCode str =
  -            // OPTIMIZE : Use String.reduce from a future version of ExtCore, instead of String.fold.
  +            // OPTIMIZE : Use String.mapReduce from a future version of ExtCore, instead of String.fold.
               String.fold (fun x c -> max x (int c)) 0 str
   
           maxAsciiCode spaces
  
positive.code:     String.iter (fun c -> Array.set ctable (int c) 16) alphas
      String.iter (fun c -> Array.set ctable (int c) 32) nums
      ctable
  
  /// Checks that a string contains exactly one (1) character,
  /// and raises an exception if otherwise.
  
negative.code: (* ------------------------------------------------------------------------- *)
  (* Character discrimination.                                                 *)
  (* ------------------------------------------------------------------------- *)
  
  //
  let private ctable =
  