<> <> <> TestSuite: PROGRAM 1 VERSION 2 = BEGIN a: Foo = [ ]; false: BOOLEAN = FALSE; true: BOOLEAN = TRUE; s: TYPE = SEQUENCE OF CARDINAL; minus: CARDINAL = - 6; x: STRING = "what is this? $foo"; y: STRING = "what about quote marks (\") ? "; choice: Bar = red[blue]; import: CARDINAL = Ralph.card; grouping: Baz = [a, b, c]; binding: Xyzzy = [a: a, b: b, c: c]; cycle: TYPE = cycle; b: TYPE = cycle; c: TYPE = cycle; blue: TYPE = cycle; junk: TYPE = RECORD[a: junk]; Xyzzy: TYPE = CARDINAL; Baz: TYPE = CARDINAL; card: TYPE = CARDINAL; Bar: TYPE = CARDINAL; Foo: TYPE = CARDINAL; END. <<>>