#!/usr/bin/perl  -w   
use strict;  

sub tux{my$i= -  1; while        ($_[++$i      ]){ if (         $_[1+$i]=~
/\D/){print $_[  $i]}else        { print(      $_[$i ]x     $_[++$i])}}}my$nl
="\n"; my $bs =  "\\"; my        $t= "*";      my$s=" "   ;my $u="_";my $f="/"
;tux($s,8,$t,8,  $nl,$s,6        ,$t,9,$t      ,3, $nl,  $s,5,$t,9,$t,5,$u,2,$nl
,$s,4,$t         ,9,$t,5,        $s,3,$bs      ,$nl,$s,  4,$t,6,$s      ,5,$t,3,
$s,2,"@"         ,2, "|",        $nl,$s,4      ,$t,6,$s  ,4,"@",2,      $s,$t,$u
,2,"@",2         ,"|",$nl        ,$s,4,$t      ,7,$s,3,  "@",2,$f,      $s,5,$bs
, $u, 2,         $nl,$s,5        ,$t,7,$s      ,3,$f,$s  ,9,")",$t
,$nl,$s,         6, $t,8,        $f,$s,9,      $f,$s,2,  $t,2,$s,9
,$s,7,$t,3,      $nl,$s,6        ,$t,7,$f      ,$u,8,$f  ,2, $s,5,   $t,5,$s, 8,
$t,5,$nl,$s      ,6,$t,7,        $bs,$u,8      ,$f,$s,8  , $t, 15,   $nl,$s,6,$t
,7,$s,19,$t      ,9,$t,4,        $nl,1,$s      ,6,$t,7,  $s,8,$bs,   $s, 10,"-",
1,"=" ,1,$t      ,8 ,$nl,        $s,6,$t,      7, $s,19  , "_=^",1   ,$t,2, $nl,
,$s,6,$t         ,7,$u,1,        $s , 10,      "%"," ",  11,$t,$s,      4,$u, 5,
$nl,1,$s         ,6,$t,7,        "=-",$u,      $s,21,$t  , $s,2,$f      ," ", 5,
$bs,$s,2         , $u, 5,        $nl,1,$s      ,6,"*",5  ,$f,$t,2,      $s,24,$t
,"(",$s,         3, "()",        $s,2,")"      ,$f,$s,5  ,$bs, $nl      ,$s,5,$t
,5,$f,$t         ,3,$s,24        ,$t,"|",      $s, 5,$u  ,"/ ", " ",2," (", ")",
"  ",")", $u,5,  $nl,$s,4,$t,5,  $f,$t,5,$s,13,"o",$s,9  ,$t,"| ",$s,12,$u,$f,$s
,6,$bs,$nl,$s,2  ,$t,6,$s,2,$t,   6,$s, 22,$t,$f,$s,17    ,"(",")",$s,2,$f,$nl,
$s,$t,5,$s,5,$t  ,6,$s, 20, $t,    "| ", $s,15, $u,5,      $f,$nl,"*",4, $s,9,
$t,5,$s, 18,$t,  $f,$s,11,$u,5,     $f, $nl, $s, 15,        $t,5," ",14,"*",2 
,"|",$s,9,$u,2,  $f,$nl, $s,18,       $t,8,$u,5,$t            ,4,$s,"|",$s,

        7,$u,$f,$nl,$s,20,$u,1,$t,3,$u,$f,$s,5,$bs,$s,5,$bs,$u,5,$f,$nl,
      $s,14,$u,5,$f,$s,5,$bs,$s,2,"(",")",$s,2,")",$nl,$s,13,$f,$s,4, "(",
      $s,2,"(",")",$s,3,$bs,$u,4,$f,$nl,$s,12,"(",$s,2,"(",")",$s,2,$bs,$u
        ,6,$f,$nl,$s,13,$bs,$u,6,$f,$nl,1); #copyleft James Hlibka, 2002
