program dd;

type    Obrazy = array [0..10,1..7] of String;
        Cas = array [1..5] of Integer;

var     vstup : String;

const obr : Obrazy =
        (('+---+'
         ,'|   |'
         ,'|   |'
         ,'+   +'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         )
        ,('    +'
         ,'    |'
         ,'    |'
         ,'    +'
         ,'    |'
         ,'    |'
         ,'    +'
         )
        ,('+---+'
         ,'    |'
         ,'    |'
         ,'+---+'
         ,'|    '
         ,'|    '
         ,'+---+'
         )
        ,('+---+'
         ,'    |'
         ,'    |'
         ,'+---+'
         ,'    |'
         ,'    |'
         ,'+---+'
         )
        ,('+   +'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         ,'    |'
         ,'    |'
         ,'    +'
         )
        ,('+---+'
         ,'|    '
         ,'|    '
         ,'+---+'
         ,'    |'
         ,'    |'
         ,'+---+'
         )
        ,('+---+'
         ,'|    '
         ,'|    '
         ,'+---+'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         )
        ,('+---+'
         ,'    |'
         ,'    |'
         ,'    +'
         ,'    |'
         ,'    |'
         ,'    +'
         )
        ,('+---+'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         )
        ,('+---+'
         ,'|   |'
         ,'|   |'
         ,'+---+'
         ,'    |'
         ,'    |'
         ,'+---+'
         )
        ,(' '
         ,' '
         ,'o'
         ,' '
         ,'o'
         ,' '
         ,' '
         )
        );

{ -- Procedures and Functions -- }

function convertTime(vstup : String) : Cas;
var     vystup : Cas;
        i : Integer;
begin
        for i := 1 to 5 do begin
                vystup[i] := ord(vstup[i]) - ord('0');
        end;
        convertTime := vystup;
end;

procedure writeTime(vstup : Cas);
var     i, j : Integer;
        list : array [1..7] of String;
begin
        for j := 1 to 7 do begin
                list[j] := '';
        end;
        for i := 1 to 5 do begin
                for j := 1 to 7 do begin
                        list[j] := concat(list[j],obr[vstup[i]][j]);
                        if i < 5 then begin
                                list[j] := concat(list[j],'  ');
                        end;
                end;
        end;
        for j := 1 to 7 do begin
                writeln(list[j]);
        end;
end;

{ -- Main --}
begin
        readln(vstup);
        while vstup <> 'end' do begin
                writeTime(convertTime(vstup));
                writeln;
                writeln;
                readln(vstup);
        end;
        writeln('end');
end.