use v5.16;

package Local::App {
	use Zydeco;
	use List::Util 'sum';

	class Calc {
		method a ( PositiveInt $n ) = 1 + (1/$n);
		method S ( PositiveInt $n ) = sum( map $self->a($_), 1 .. $n );
	}
}

my $calc = Local::App->new_calc;
say $calc->S(15);