make parameters usable

1 files changed, 9 insertions, 10 deletions

diff --git a/fibonacci.hgn b/fibonacci.hgn
index 362e244..b1ce582 100644
--- a/fibonacci.hgn
+++ b/fibonacci.hgn
@@ -1,19 +1,18 @@
 main := proc() {
-    p(69)
+    n := read_int(0)
+    fib(n)
+    exit(0)
+}
+
+fib := proc(n) {
     a := 0
     b := 1
-    n := 10
-    # n := read_int(0)
-    while n > 0 {
+    i := 0
+    while i < n {
         c := a + b
         a = b
         b = c
-        n = n - 1
+        i = i + 1
     }
     print(a)
-    exit(0)
-}
-
-p := proc() {
-    print(1)
 }