import Control.Applicative
import Data.Char

main = do
  ss <- lines <$> getContents
  mapM putStrLn . map solve $ ss
  where solve [] = ""
        solve ('@':n:c:xs) = (replicate (digitToInt n) c) ++ (solve xs)
        solve (x:xs) = x : solve xs