import Data.List (intersperse)
import Control.Monad (forever)

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

biPic :: String -> String
biPic ls = if (head ls) `elem` ['.','*'] then ls ++ '\n' : ls else ""