#!perl -w

use Tk;$/=$]<<$]+1;$"=tkinit->Canvas(-wi,$/,-he,$/)->form;map{map{create$"('t',
rand$/,rand$/,-te,chr(hex($]<<1+1)+ord))}split''}'*05%324,!(.!/#4+(%%22';while
($]){update$";map{($I,$l)=coords$"($_);$I<$_*$/>>$]?$;=1:($;=-1);$_%(1<<1)?($l
<$/>>1+1?$\=1:($\=-1)):($l<$/>>1?$\=1:($\=-1));move$"($_,$;,$\)}find$"('all')}