Sourcetype host = {transcript : string -> unit;milliseconds : unit -> int;inspect : oop -> unit;mouse : unit -> int * int * int;
} Sourcetype process_state = | Runnable| Suspended of string| Finished of oop| Terminated
Sourcetype primitive = vm -> int -> bool Sourceval request_suspend : vm -> string -> unit