type instruction = | Basic of char | Terminate | Ptest of char | Ntest of char | Jump of int | Concat of instruction list | Repeat of instruction | Program of char | Empty type program = instruction list exception FatalError of string
