ans := 1;
x := 5;
while x (ans := ans * x; x := x + -1)
