diff -r e2168260b75a -r 7597503194b8 examples/FactorialI.tea
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/FactorialI.tea	Sun Sep 27 07:07:46 2015 +0100
@@ -0,0 +1,18 @@
+nil subclass: #FactorialI
+    category: 't-Examples'
+!
+
+!FactorialI class methodsFor:'examples'!
+factorialI:v <tSIntegerW> <^ tSIntegerW>
+    | result <tSIntegerW> 
+      i <tSIntegerW> |
+
+    result := 0.
+    i := v.
+
+    [ i > 1 ] whileTrue:[ 
+        result := result * i.
+        i := i - 1
+    ].
+    ^ result
+! !       
\ No newline at end of file