--$/;$v=A;map${$v++}=$_,glob<>;printf sort{$a-$b}(abs$G-$E)x$D=~$F,$E+$G-1,($D=$$D-$E)+1+($F=$$F-$G),$D+1+$F,map{$E+$$_+$F,$D+$$_+$G}A..C