L=$<.read
1.upto(/\n/=~L){|n|L.map{|l|$><<l[n-1,1]};puts}