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: result ; rec: w] 015: while ( result = result ) { 016: result := result + 8; 017: if ( result < w.y ) then { 018: while (true) { 019: result := 8; 020: } 021: } else { 022: result := 9; 023: } 024: result := bar('c', 7); 025: } 026: return 0; 027: }