#! /usr/bin/env perl6

# https://c...content-available-to-author-only...e.com/questions/82815/denominator-of-harmonic-series/82844#82844

my &hd = {([+] 1.FatRat X/1..$_).nude[1]}

.say for 1..10 Z=> (1..10)».&hd;

say '';

say 100 => hd 100;

say '';

say 1000 => hd 1000;