anchor.diff:  
   let Delay duration start stop finished aborted =
     pick start >>= fun x ->
  -  select [stop                >=> fun y -> aborted y
  -          timeOut (!duration) >=> fun () -> finished x]
  +  select [stop                         >=> fun y -> aborted y
  +          GameTime.timeOut (!duration) >=> fun () -> finished x]
   
   let Set value target input output =
     pick input >>= fun x ->
  
positive.code: ﻿module Kismet
  
  open System
  open Hopac
  open Hopac.Alt
  open Hopac.Alt.Infixes
  open Hopac.Job
  open Hopac.Job.Infixes
  open Hopac.Timer.Global
  
  // Inspired by http://upload.wikimedia.org/wikipedia/en/e/e6/Kismet_Roboblitz.PNG
  
  let CompareBool comparand input onTrue onFalse =
    pick input >>= fun x ->
  
negative.code:                   (Ch.give ch_2)
                    (fun _ -> Job.unit)
        |> Job.forever |> Job.server
    do! Delay (ref 314L)
              (Ch.Alt.take ch_2)
              (Alt.never ())
              (Ch.give ch_3)
  