$
              _=q  
             '*n=s 
            ub{push
           @f,{a,$_[
          0],b,$_[1],
         j,$_[2],l,$_[
        3],c,31+rand(6)
       ,i,25}};n(18,18);
       n(17,-19,75,15);n
       (17,0,25,7);*y=su
       b{%a=%{$_[0]};$a{
       i}-($a{a}*$a{t}-5
       *$a{t}*$a{t})};*x
       =sub{$_[0]->{j}+$
       _[0]->{b}*$_[0]->
       {t}};*p=sub{$a=sh
       ift;$|=printf"\e[
       %d;%dH\e[1;%dm.\e
       [m\e[H",&y($a),&x
       ($a),$a{c}};$|=$c
       =1;while($c){$d=$
       c=0;print"\ec";$T
       +=1;for(@f){if($_
       ->{i}){if(($_->{a
       }-10*$_->{t})<0){
       delete$f[$d];for$
       z(1..4){push@{$f[
       $d]},{a,$z%2?5:-5
       ,b,$z>2?5:-5,i,&y
       ($_),j,&x($_),c,$
       _->{c}}}}else{if(
       $T>$_->{l}){$c=p(
       $_);$_->{t}+=.1}}
      }else{for(@{$_}){$c 
    =p($_)if(&y($_)<22&&&x(
  $_)>0);$_->{t}+=.1}}$d++}se 
lect$q,$q,$q,.1}';s#\s##g;eval