#!perl $a=S->n;$b=S->n;while($t<2e3){@o=();$a->g,$b->g for 0..200; @o[$a->g,$b->g,30]=($a->l,$b->l,$/);print map$_||++$t&&$",@o }package S;sub n{bless{v=>"-"x$n++.25},pop}sub g{$s=pop;15+ int($s->{p}+=($s->{v}+=$s->a)/1000)/$n}sub a{-$_[0]->{p}/1000 }sub l{(perlmonks=~/./g)[$_[0]->{i}*=++$_[0]->{i}>8?0:1]}