anchor.diff:      result :?> 'TDest seq
   
   module RuntimeList =
  -  let private typ = (typeof<_ list>).Assembly.GetType("Microsoft.FSharp.Collections.ListModule")
  +  let private typ = Runtime.getModule<_ list>("Microsoft.FSharp.Collections.ListModule")
   
     let private mapMethod = typ.GetMethod("Map")
     let map<'TDest> (f: obj -> obj (* 'a -> 'TDest *)) (xs: obj (* 'a list *), elemType: Type (* typeof<'a>*)) =
  
positive.code:     let typ = FSharpType.MakeFunctionType(srcType, dstType)
      FSharpValue.MakeFunction(typ, body)
  
  module RuntimeSeq =
    let private typ = (typeof<_ list>).Assembly.GetType("Microsoft.FSharp.Collections.SeqModule")
  
    let private mapMethod = typ.GetMethod("Map")
    let map<'TDest> (f: obj -> obj (* 'a -> 'TDest *)) (xs: obj (* 'a seq *), elemType: Type (* typeof<'a> *)) =
  
negative.code:   | [| name; result |] -> name, result
    | _ -> failwith "oops!"
  
  module Runtime =
    let getModule<'TSameAssemblyType>(name: string) = (typeof<'TSameAssemblyType>).Assembly.GetType(name)
  
    let invoke (m: MethodInfo) typeArgs args =
      let f =
        match typeArgs with
  