s=raw_input() i=0 for e in s:print(s,s[-i]+' '*~-len(s))[i>0]+e;i+=1 print(s+s)[i::-1]