import Control.Applicative

import Data.List
    (intercalate)
    
type Problem = [String]

type Result = [String]

runlength :: String -> String -> String

runlength text ""
    = text
    
runlength text ('@':n:x:xs)
    = runlength (text ++ open) xs where
        time = read [n]
        open = replicate time x
        
runlength text (x:xs)
    = runlength (text ++ [x]) xs
    
solve :: Problem -> Result

solve list
    = map (runlength "") list
        
main :: IO ()

main
    = do
        list <- lines <$> getContents
        putStr $ intercalate "\n" $ solve list