17 lines
248 B
Plaintext
17 lines
248 B
Plaintext
type rec: [character: x; integer: y]
|
|
|
|
type T2: rec -> integer
|
|
|
|
type main: string -> integer
|
|
function entry: main
|
|
function bar: T2
|
|
|
|
bar2 (r,s) := {
|
|
return s;
|
|
}
|
|
|
|
entry (arg) := {
|
|
[ integer: result ; rec: w]
|
|
result := bar('c', 7);
|
|
return 0;
|
|
} |