import Data.List
main :: IO ()
main = do
    text <- getLine
    print $ inits text