RosettaCodeData/Task/Stack-traces/Perl-6/stack-traces.pl6

sub g { say Backtrace.new.concise }
sub f { g }
sub MAIN { f }