for(<>){/\d+/;$g[ord][$&]|=1;$_|=2for$g[ord][$&+1],$g[ord][$&-1],$g[ord()-1][$&],$g[1+ord][$&]}for$r(A..H,J..T){$g[ord$r][$_]-2||print$r,$_,$/for 1..19}