anchor.diff:                  member __.Apply e = e.Eval m
           }
           |> MsgRun
  +
  +    static member CreateBarrierMessages numOfQueuesOnBarrier =
  +        let s = new SyncObject(numOfQueuesOnBarrier)
  +        Array.init numOfQueuesOnBarrier (fun i -> MsgBarrier s)
   type GPU(device: Device) =
   
       let clContext =
  
positive.code:             let i = range.GlobalID0
              buf.[i] <- buf.[i] * n @>
  
      member this.Do () =
          let devices = Device.getDevices "*" DeviceType.Gpu
          printfn "Device: %A" devices.[0]
          let gpu = GPU(devices.[0])
  
negative.code:             res1,res2
  
          result
  
  
      member this.Do () =
             mxmQuadro ()
             [||],[||]
  