RosettaCodeData/Task/Factorial/Inform-6/factorial.inf

[ factorial n;
  if(n == 0)
    return 1;
  else
    return n * factorial(n - 1);
];