or download this
#!/usr/bin/perl
sub r{int rand pop}$|++;@g=map{[map{' '}0..$=]}0..25;my$j=pop||2+r(3);
+@f=map{my$
...
{$$_{n}->($h++)}}}}}1..$j;while(1){++$iter;if(@f==1){exit 0}for$m(@f){
+$$m{i}->()
;$$m{d}->()}print$/x$=;for $a(1..25){print$/,"|",@{$g[$a]},"|";@{$g[$a
+]}=map{' '
}0..$=;}sleep 1}#Optional command-line argument selects how many ninja
+ stickmen.