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:                 (*
010: bar (r,s) := {
011:     return 0;
012: }
013: 
014:                 *)
015: entry (arg) := {
016:  	[ Boolean:x ; Boolean:y ; Boolean:z ; Boolean:t]
017:         if ( ( x & y ) ) then {
018: 
019:                 (*
020:                  if ( x<y & !(x=y) ) then {
021:                         t := 8;
022:                 } else {
023:                 }
024:                 *)
025: 
026:                 z := x < y;
027:         } else {
028:                 y := true; (* bar('c', 7); *)
029:         }
030: 	return 0;
031: }