[project @ 2002-05-31 12:22:33 by panne]
[ghc-base.git] / Text / ParserCombinators / Parsec / examples / while / fac.wh
1 y := x; z := 1; while y>1 do (z := z*y; y:=y-1); y:=0
2