Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/parsec/examples/while/fac.wh
y := x; z := 1; while y>1 do (z := z*y; y:=y-1); y:=0