Rename the frontend binary name to gelna

example.elna

@@ -5,8 +5,6 @@ type
     y: Int
   end;
 
-const t = 5;
-
 proc test_string();
 var s: String;
 begin
@@ -57,25 +55,47 @@ begin
   writei(r.y)
 end;
 
-var x_1: Int, y: Bool, z: Float, c: Char;
+proc test_primitive();
+var c: Char, z: Float;
 begin
-  z := 8.2;
-  x_1 := t;
-  y := false;
   c := 'x';
+  z := 8.2;
 
-  if y then
-    z := z + 3.0
-  else
-    z := z + 2.0;
-
-  writei(z);
-
-  writei(x_1);
+  writei("");
+  writei("Test primitives:");
   writei(c);
+  writei(z)
+end;
 
+proc test_const();
+const t = 5;
+var x_1: Int;
+begin
+  x_1 := t;
+
+  writei("");
+  writei("Test const:");
+  writei(x_1)
+end;
+
+proc test_if();
+var y: Bool;
+begin
+  y := false;
+
+  writei("");
+  if y then
+    writei("Test if: True")
+  else
+    writei("Test if: False")
+end;
+
+begin
+  test_primitive();
   test_string();
   test_array();
   test_pointer();
-  test_record()
+  test_record();
+  test_const();
+  test_if()
 end.