var str1 : string;
flag, i, code, k, t : integer;
f1 : text;
BEGIN
assign(f1, 'input.txt'); {открываем файл для чтения}
reset(f1);
readln(f1, str1);
close(f1); {прочитали, закрываем}
code:=0;
i:=1;
assign(f1, 'output.txt'); {открываем файл для записи}
rewrite(f1);
flag:=0;
while i<= length(str1) do begin {основной цикл}
    k := 0; {переменная, которая содержит количество повторений буквы}
    while (str1[i] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) do begin {читаем символ, если он цифра}
        k:=k*10; {это для того, чтобы k могло быть многозначным}
        val(str1[i], t, code); {преобразовываем символ в число}
        k:=k+t; {прибавляем к k}
        i:=i+1; {переводим указатель на следующий символ}
    end;
    for t:=1 to k do begin {цикл вывода. буква срау выводится нужжное число раз}
        if (flag = 20) or (flag = 40) then writeln(f1); {тот самый перевод строки, чтобы первая и вторая были не больше 20}
        write(f1, str1[i]); {запись символа}
        flag:=flag+1; {считаем количество символов}
    end;
    i:=i+1; {переводим указатель}
end;
close(f1); {закрываем файл}

END.