@i=<>;$x=length($i[0])-1;while($x--){print substr($i[$_],$x,1)for 0..$#i;print$/}