program barras;
var codEmp : string[3];
imp : string[4];
a : string[8];
i : integer;
const bin : array [0..9] of string = ('****','***|','**|*','**||','*|**','*|*|','*||*','*|||','|***','|**|');

begin
	writeln('Ingrese el codigo de empresa.');
	readln(codEmp);
	writeln('Ingrese el importe. (0 para cerrar)');
	imp := 1;
	repeat
		readln(imp);
		a := Concat(codEmp,imp);
		a := Concat(a,chr((10 mod abs((Ord(a[1])-48) + (Ord(a[3])-48) + (Ord(a[5])-48) + (Ord(a[7])-48) - (Ord(a[2])-48) -(Ord(a[4])-48) - (Ord(a[6])-48)))+48));
		for i:= 1 to 8 do write(bin[Ord(a[i])-48]);
			readln(i);
	until (imp<>0);
end.