import Control.Applicative
import Data.List.Split
main = do
  s <- lines <$> getContents
  mapM_ (putStrLn . decode) s

decode::String -> String
decode s = concat $ head v:(map aux $ tail v)
  where
    v = splitOn "@" s
    aux t = concat (replicate (read [t!!0]) [t!!1]) ++ (tail.tail $ t)