anchor.diff:      let map (text : string) = cloud { return text.Split(' ').Length }
       let reduce i i' = cloud { return i + i' }
       let inputs = Array.init inputSize (fun i -> "lorem ipsum dolor sit amet")
  -    MapReduce.mapReduce map 0 reduce inputs
  +    Distributed.mapReduce map reduce 0 inputs
   
  -type Cloud with
  -    static member All (one : IWorkerRef -> Cloud<'T>) : Cloud<'T []> =
  -        cloud {
  -            let! wr = Cloud.GetAvailableWorkers()
  -            let! handles = wr |> Array.map (fun w -> Cloud.StartChild(one w,w))
  -                              |> Cloud.Parallel
  -            return! handles |> Cloud.Parallel
  -        }
  -
  -runtime.Run(Cloud.All (fun w -> cloud.Return w.Id))
  -
  -runtime.Run(Cloud.All (fun _ -> Cloud.GetWorkerCount()))
  +runtime.Run (getWordCount 1000)
   
   runtime.KillAllWorkers()
   runtime.AppendWorkers 4
  
positive.code: ﻿#I "../../bin/"
  
  #r "MBrace.Core.dll"
  #r "MBrace.Library.dll"
  #r "MBrace.SampleRuntime.exe"
  
  open System
  open MBrace
  open MBrace.SampleRuntime
  
  MBraceRuntime.WorkerExecutable <- __SOURCE_DIRECTORY__ + "/../../bin/MBrace.SampleRuntime.exe"
  
  let runtime = MBraceRuntime.InitLocal(10)
  
  runtime.Run(
      cloud {
  
negative.code:         let rec sender n = cloud {
              if n = 0 then return ()
              else
                  do! CloudChannel.Send (sp, n)
                  return! sender (n-1)
          }
  
  