Move type definitions to the program node

example.elna

@@ -15,7 +15,7 @@ begin
 end;
 
 proc test_array();
-var a: T, x_3: Int;
+var a: T, x: Int;
 begin
   a[0] := 2;
   a[1] := 5;
@@ -23,19 +23,19 @@ begin
   writei("");
   writei("Test array:");
 
-  x_3 := 0;
-  while x_3 < 2 do
+  x := 0;
+  while x < 2 do
   begin
-    writei(a[x_3]);
-	x_3 := x_3 + 1
+    writei(a[x]);
+	x := x + 1
   end
 end;
 
 proc test_pointer();
-var x_2: Int, p: ^Int;
+var x: Int, p: ^Int;
 begin
-  x_2 := 5;
-  p := @x_2;
+  x := 5;
+  p := @x;
 
   writei("");
   writei("Test pointer:");
@@ -69,13 +69,13 @@ end;
 
 proc test_const();
 const t = 5;
-var x_1: Int;
+var x: Int;
 begin
-  x_1 := t;
+  x := t;
 
   writei("");
   writei("Test const:");
-  writei(x_1)
+  writei(x)
 end;
 
 proc test_if();