Module Hypertalk

type script
exception Error of string
val parse : string -> script
val handlers : script -> string list
type card_ref =
  1. | Next
  2. | Prev
  3. | First
  4. | Last
  5. | Named of string
  6. | Numbered of int
type 'w world = {
  1. get_field : 'w -> string -> string;
  2. set_field : 'w -> string -> string -> 'w;
  3. go : 'w -> card_ref -> 'w;
  4. answer : 'w -> string -> 'w;
  5. beep : 'w -> 'w;
  6. number_of_cards : 'w -> int;
  7. card_number : 'w -> int;
  8. card_name : 'w -> string;
}
val send : 'w world -> script list -> string -> 'w -> 'w