main :: IO ()
main = do
  ls <- getLine
  putStrLn $ biPic ls

biPic :: String -> String
biPic ls = (concat . insert "\n" . biLine . tail . lines) ls where
  biLine [] = []
  biLine (x:xs) = x : x : (biLine xs)
  insert a (x:[]) = [x]
  insert a (x:xs) = x : a : (insert a xs)