-- Exercise 4 from page 84
module Main
       where

import IO
import System
import Data.List

main = do
  args <- getArgs
  text <- readFile (head args)
  putStrLn $ unlines $ transpose $ lines text