IDENTIFICATION DIVISION.
PROGRAM-ID. MUL.

DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 lin PIC X(2000).
    01 x PIC 999999.
    01 y PIC 999999.
    01 z PIC 999999.
    01 i PIC 999999.

PROCEDURE DIVISION.
    ACCEPT lin
    INSPECT lin TALLYING x FOR ALL 'S'
    ACCEPT lin
    INSPECT lin TALLYING y FOR ALL 'S'
    MULTIPLY x BY y GIVING z
    PERFORM VARYING i FROM 1 BY 1 UNTIL i GREATER THAN z
       DISPLAY "S(" WITH NO ADVANCING
    END-PERFORM
    DISPLAY "0" WITH NO ADVANCING
    PERFORM VARYING i FROM 1 BY 1 UNTIL i GREATER THAN z
       DISPLAY ")" WITH NO ADVANCING
    END-PERFORM
    STOP RUN.