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

	

Toplevel Commands

Enter/Return Submit code
Ctrl + Enter Newline
Up / Down Browse history
Ctrl + l Clear display
Ctrl + k Reset toplevel
Tab Indent code

Source codes

Exercises