import Data.List

toLength :: Int -> String -> String
toLength n x = take n x ++ replicate (min 0 (n - length x)) ' '

main = do
    contents <- getContents
    let
        input = lines contents
        w = maximum $ map length input
        output = transpose $ map (toLength w) input
    mapM_ putStrLn output