import Data.Char
import Text.Printf

solve :: String -> String
solve []     = []
solve (x:xs)
    | x=='@'     = exp++(solve (drop 2 xs))
    | otherwise  = [x]++(solve xs)
    where n = (digitToInt (xs!!0))
          c = xs!!1
          exp = take n $ repeat c

main :: IO ()
main = do
    str <- getContents::IO String
    mapM_ (printf "%s\n") $ map solve $ lines $ str