anchor.diff:  
   module Fsm =
       open System
  +    open System.Threading
       open System.Collections.Concurrent
       open Rotor.Libuv.Networking
   
  
positive.code: 
              match machines.Count with
              | 0 ->  printfn "Stopping loop"
                      stop
              | _ ->  printfn "Life goes on"
  
          let runOnce token f =
  
negative.code:                                         |> Seq.cast<int64>
                                          |> Seq.iter(
                                              fun token ->
                                                  printfn "Wakeup started"
                                                  match (Map.tryFind token machines) with
                                                  | Some(machine) -> runOnce token machine.wakeup
                                                  | _ -> ()
                                                  printfn "Wakeup finished"
                                          )
                                  ), 
                                  System.Action<_, _>(fun p1 p2 -> ())
  