1 files changed, 9 insertions, 0 deletions
diff --git a/examples/factorial.imp b/examples/factorial.imp
new file mode 100644
index 0000000..0ab74cd
--- /dev/null
+++ b/examples/factorial.imp
@@ -0,0 +1,9 @@
+procedure factorial(n;r) begin
+  if n <= 0 then
+    r := 1;
+  else
+    m := n - 1;
+    factorial(m;r);
+    r := r * n;
+  end;
+end;
+\ No newline at end of file