1to:(S:=stdin splitAt:$
)last size do:[:i|S do:[:x|(x at:i)display].$
display]