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

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