let compute n = for i = 0 to n do let x =ref 1 in while !x <10000000 do incr x done done let sync () = Bsml.proj << 0 >> let _ = sync () let v = compute 20 let _ = sync () let v = compute 20 let comms = Bsml.put << fun i -> if i = $this$ +1 then i else 0 >> let v = let _ = compute 20 in << compute (20* $this$ ) >> let comms = Bsml.put << fun i -> Array.make (10*i) i >>