#! /usr/bin/env perl6

my $e-seq := gather
{
  take 1;

  my FatRat $current = 1.FatRat;

  for 1 .. Inf
  {
    $current /= $_;
    take $current;
  }
}

sub MAIN (:$steps = 10)
{
  say $e-seq[^$steps].sum;
}