001: type rec: [character: x; integer: y]
002: 
003: type T2: rec -> integer
004: 
005: type main: string -> integer
006: function entry: main
007: function bar: T2
008: 
009: bar (r,s) := {
010:     return 0;
011: }
012: 
013: entry (arg) := {
014:  	[ Boolean: x ; Boolean: y; Boolean: z;Boolean: t]
015:         while ( ((x = y)) < ( z | t ) ) {
016:                 while ( (x & y) = ( z < t ) ) {
017:                         y := y;
018:                 }
019:                 (*
020:                 x := x;
021:                 *)
022:                 if ( (x = y) = ( z < t ) ) then {
023:                         x :=  1;
024:                 } else {
025:                         x :=  1;
026:                 }
027:         }
028:         return 0;
029: }