mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
23 lines
No EOL
215 B
Text
23 lines
No EOL
215 B
Text
fun f () {
|
|
var x, l = {};
|
|
fun g () { x}
|
|
|
|
x := 1;
|
|
l := g : l;
|
|
|
|
x := 2;
|
|
l := g : l;
|
|
|
|
l
|
|
}
|
|
|
|
fun p (l) {
|
|
case l of
|
|
{} -> skip
|
|
| h : tl -> write (h ()); p (tl)
|
|
esac
|
|
}
|
|
|
|
var x = read ();
|
|
|
|
p (f ()) |