import Data.List (intersperse)

main :: IO ()
main = do
  ls <- getLine
  putStrLn $ biPic ls
 
biPic :: String -> String
biPic ls = (concat . intersperse "\n" . biLine . tail . lines) ls where
  biLine [] = []
  biLine (x:xs) = x : x : (biLine xs)
