use v5.16;

package Local::App2 {
	use List::Util 'sum';
	use Exporter::Shiny 'S';
	
	sub a {
		my $n = shift;
		1 + (1/$n);
	}
	sub S {
		my $n = shift;
		sum( map a($_), 1 .. $n );
	}
}

use Local::App2 'S';
say S(15);