use strict; my ($y,$z);sub tree{my $x=shift;$x=($x>0?-9:
$x);$z=( ($z=($x+5))>0?$z:-$z);printf(!$x&&++$y?"\n":$z?
$z>$y %3+$y/ 3?" ":$x<-5?"/":"\\":$y?"|":"*");$y-9?tree(
++$x):  print("  _|_|_\n")&&print("  \\___/\n");}tree(1);