Factorial in W

Example for versions W 0.0.1
item x
x = 1
item y
item z
Repeat 15 [
     y = 0
     z = 0
     repeat x [
          y = y + x - z
          z = z + 1
     ]
     type y
     x = x + 1
]