begin
  var s := [1,2,3];
  foreach var x in s do
  begin
    var y := x + x;
  end;
end.