long fact_for(long n)
{
    long i;
    long result = 1;
    for (i = 2; i <= n; i++)
       result *= n;
    return result;
}