anchor.diff:        let width_of_cond = width cond in
         let data_of_cond = find cond in
         (* map of case index constants to the tasks to execute. *)
  -      let case_tasks_map = List.fold_left (fun map (cond_match, exprs) -> 
  +      let case_tasks_map = List.fold (fun map (cond_match, exprs) -> 
           let data_of_cond_match = d.create (width cond_match) in
           d.set_const data_of_cond_match (string_of_const cond_match);
           let code_of_case = behave_tasks tgt_data exprs in
  
positive.code:   let _ = p.Start() in
    let output = p.StandardOutput.ReadToEnd() in
    p.WaitForExit(); 
    if show_output then output_string stdout output
    else ()
  
  (** run an external (shell) and wait for it to complete.  Dont display its stdout. *)
  
negative.code:           data.[word] <- data.[word] ||| (1ul <<< bit);
        done);
        
      to_int = (fun a -> int a.[0]);
      copy = (fun a b w -> 
        let words = (w + 31) / 32 in
        for i = 0 to words - 1 do a.[i] <- b.[i] done);
  