import           Data.Char (ord)

solve :: String -> String
solve = solve' []
  where solve' s []           = s
        solve' s ('@':n:c:xs) = solve' (s ++ replicate (ord n - 0x30) c) xs
        solve' s (x:xs)       = solve' (s ++ [x]) xs

main :: IO ()
main = getContents >>= mapM_ (putStrLn . solve) . lines