anchor.diff:              | true, (dto, _) -> ok <| dto
               | _ -> fail <| AnalyzerNotFound(analyzerName)
           
  -        member this.Analyze(analyzerName : string, input : string) = 
  +        member __.Analyze(analyzerName : string, input : string) = 
               maybe { let! analyzer = getAnalyzer (analyzerName)
                       return parseTextUsingAnalyzer(analyzer, "", input).ToArray() }
   
  
positive.code:     abstract GetSearchProfileScript : scriptSig:string -> Choice<SearchProfileDelegate, IMessage>
  
  [<Sealed>]
  type ScriptService(threadSafeWriter : ThreadSafeFileWriter) as self = 
      let scripts = conDict<Scripts.T>()
      let addScripts (s : seq<string * Scripts.T>) = 
          s |> Seq.iter (fun (scriptName, script) -> scripts.TryAdd(scriptName, script) |> ignore)
  
negative.code: open System.Runtime.Caching
  open System.Threading.Tasks
  open System.Threading.Tasks.Dataflow
  
  /// General factory Interface for all MEF based factories
  type IFlexFactory<'T> = 
  