read a&&(eval b={a..h}{1..8}';set 18#{$a,$b}{/,%}18;c[(($1-$3)*($2-_))**2^4]+=$b\ ';echo $c)&&. *