sub fact6b{
  my ($m, $n) = @_; 

  if ($m < $n) {
    my $k = int($m/2 + $n/2);
    return my $x = fact6b($m, $k) * fact6b($k+1,$n);
  }
  else {
    return Math::BigInt->new($m);
  }
}