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 >>
Toplevel Commands
Enter/Return | Submit code |
Ctrl + Enter | Newline |
Up / Down | Browse history |
Ctrl + l | Clear display |
Ctrl + k | Reset toplevel |
Tab | Indent code |