continue implementing procedure calls

multiple procedures can now exist, but you cannot call them, the first
one is the "main" procedure since it happens to be placed first in the
binary, and all procedures end with an exit system call

1 files changed, 12 insertions, 10 deletions

diff --git a/fibonacci.hgn b/fibonacci.hgn
index 01d9333..c42241b 100644
--- a/fibonacci.hgn
+++ b/fibonacci.hgn
@@ -1,11 +1,13 @@
-a := 0
-b := 1
-n := 10
-# n := read_int(0)
-while n > 0 {
-    c := a + b
-    a = b
-    b = c
-    n = n - 1
+main := proc() {
+    a := 0
+    b := 1
+    n := 10
+    # n := read_int(0)
+    while n > 0 {
+        c := a + b
+        a = b
+        b = c
+        n = n - 1
+    }
+    print(a)
 }
-print(a)