#!/usr/bin/env runghc

import Data.List

import System.Environment

main = getArgs >>= mapM_ (putStrLn . concat . transpose) . permutations