{ Sample program
  int TINY language - 
  computes factorial
}
read x; { input an integer }
if 0 < x then { don't compute if x <= 0 }
  fact := 1;
  repeat
    fact := fact * x;
    x := x - 1
  until
    x = 0;
  write fact { output factorial of x }
end
