anchor.diff:  // ### Derived definitions
   
   open Infixes
  -type IDisposable = System.IDisposable
   
   [<AutoOpen>]
   module ``always via channels and memo`` =
  
positive.code:     // Spawning server loops
      let foreverServer: Job<unit> -> Job<unit>                               = forever >> server
      let iterateServer: 'x -> ('x -> #Job<'x>) -> Job<unit>                  = fun x -> iterate x >> server
  [<AutoOpen>]
  module ``basic alt combinators`` =
    module Alt =
  
negative.code: #r "Hopac.Bench.dll"
  #r "Hopac.Experimental.dll"
  
  open System
  
  // ### Core of Hopac
  
  type Job<'x>                                                                = Hopac.Job<'x>
  