my @pyt = gather {
   for 1..20 -> $c {
       for 1..$c -> $b {
           my $a = sqrt($c**2 - $b**2);
           take [$a, $b, $c] if $a == int($a);
       }
   }
}