RosettaCodeData/Task/Ackermann-function/Perl-6/ackermann-function-4.pl6

say A(4,1);
say .chars, " digits starting with ", .substr(0,50), "..." given A(4,2);