sub sqToAlg {
   my $sq = shift;
   # Assumes squares are numbered 0 to 63,
   # from right to left, bottom to top
   substr('abcdefgh',7 - $sq % 8,1) . ($sq / 8);
}