anchor.diff:  #r "Hopac.Bench.dll"
   #r "Hopac.Experimental.dll"
   
  +open System
  +
   // ### Core of Hopac
   
   type Job<'x>                                                                = Hopac.Job<'x>
  
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: // ### Derived definitions
  
  open Infixes
  
  [<AutoOpen>]
  module ``always via channels and memo`` =
  