module Main where

main :: IO ()
main = do 
	args <- getArgs
	putStrLn (concatMap infoStr args )

infoStr :: String -> String
infoStr