main = do
  s <- getContents
  mapM_ putStrLn $ map func $ lines s

func:: [Char] -> [Char]
func [] = []
func ('@':xs) = func2 (head xs) (head (tail xs)) ++ func (tail (tail xs))
func (x:xs) = x : func xs

c_to_i c = (read (c:[])) :: Int


func2 c s = replicate (c_to_i c) s