#!usr/bin/perl

# Just insert the code from sub b and sub c in sub a where the tree dots are.
sub a {	my $input = shift; return 'sub b{...}; sub c(...)'; }
sub b { my $input = shift; return 'sub a { my $input = shift; return \''.$input.'\';}'.$input.';';}
sub c { my $input = shift; print $input.'print &c(&b(&a()));';}
print &c(&b(&a()));