main=interact$unlines.map(unwords.concat.f).lines a%n=toEnum$n+fromEnum a f(a:b:_)=zipWith g(map(a%)[-2,-2,-1,-1,1,1,2,2])(map(b%)[-1,1,-2,2,-2,2,-1,1]) g a b|or[a<'a',a>'h',b<'1',b>'8']=[]|0<1=[a:[b]]