x!y=abs$fromEnum y-x
m@main=do[a,b]<-getLine;putStrLn$unwords[[x,y]|x<-['a'..'h'],y<-['1'..'8'],0!x!a*0!y!b==2];m