[project @ 2003-07-31 10:48:50 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