#!/usr/bin/env perl
use strict;
use warnings;
use Math::BigFloat;

Math::BigFloat->accuracy(100);  # default to 100 digits after the decimal dot

my $e = Math::BigFloat->bone();
my $fakulty = $e->copy();
my $tmp;

for my $n (1 .. 10) {
    $fakulty->bmul($n);
    $tmp = $fakulty->copy()->bpow(-1);
    $e->badd($tmp);
    print "$e\n";
}