# [Perl 6], a trillion-2/65

<!-- language-all: lang-perl6 -->

    {$!=.FatRat²/$!+$_+$_-?e}for 𖭡²…¹;say substr ⁴/$!,^𖭡

[Try it online!][TIO-jm2ru1t1]

[Perl 6]: https://github.com/nxadm/rakudo-pkg
[TIO-jm2ru1t1]: https://tio.run/##K0gtyjH7/79aRdFWzy2xJCix5NAmfRVFbZV4INK1T61Nyy9S@DBt7cJDmx41LDu007o4sVKhuDSpuKRI4VHjFqBSnTiQ9P//AA "Perl 6 – Try It Online"


Takes a *very* long time to compute. This can be arbitrarily extended pretty easily. As an example here's an altered version that only prints the first [998 digits](https://tio.run/##K0gtyjH7/79aRdFWzy2xJCix5NAmfRVFbZV4INK1T61Nyy9SMDIwMHjUsOzQTuvixEqF4tKk4pIihUeNW4AKdeIMDQyM/v8HAA "Perl 6 – Try It Online").