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:  	[ integer: r ; integer: s; Boolean: x]
015:         (* x := (r < s) & x; *)
016:         if ( ( r < s ) & (s = r) ) then {
017:                 r := 5;
018:         } else {
019:                 r := 7;
020:         }
021: 	return 0;
022: }