o=[]
while gets
o<<$_
end
l=o.size;r=o[0].size
r.times{|i|
l.times{|j|print o[j][i,1]}
puts
}