#!/usr/bin/perl

use gfio;
use Math::BigInt;

my $n=Math::BigInt->new(1); my $fac=Math::BigInt->new(1); my $pfac=Math::BigInt->new(0);
my $out;

while ($n<=26) {
  $out.="FACTORIAL $n\n";
  $out.=" * difficulty = $fac\n";
  for ($m=2;$m<$n;$m++) {
    my $sd=$pfac*$m;
    $out.=" - ";
    if ($m<10) { $out.=" " }
    $out.="$m = $sd\n"
  }
  $pfac=$fac; $n++; $fac*=$n
}

print $out;
gfio::create('fcc_difficulty_table.txt',$out)