lama_byterun/regression/test065.expr

fun f () {
  local x, l = {};
  fun g () {return x}
  
  x := 1;
  l := g : l;

  x := 2;
  l := g : l;

  return l
}

fun p (l) {
  case l of
    {} -> skip
  | h : tl -> write (h ()); p (tl)
  esac
}

local x = read ();

p (f ())