DECLARE FUNCTION max! (a AS INTEGER, b AS INTEGER)
CLS

INPUT x$

k = LEN(x$)

DIM a$(k)
DIM b$(k)

FOR i = 1 TO k
b$(i) = LEFT$(x$, i)
a$(i) = RIGHT$(b$(i), 1)
NEXT i

s1$ = "["
s2$ = "]"
s3$ = "("
s4$ = ")"

FOR i = 1 TO k
IF a$(i) = s1$ THEN r = 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s2$ THEN f = 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s3$ THEN t = 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s4$ THEN g = 1
NEXT i
    
IF r <> f OR t <> g THEN PRINT "NO"
IF r <> f OR t <> g THEN END


FOR i = 1 TO k
IF a$(i) = s1$ THEN v% = v% + 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s2$ THEN b% = b% + 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s3$ THEN n% = n% + 1
NEXT i
FOR i = 1 TO k
IF a$(i) = s4$ THEN m% = m% + 1
NEXT i

 t% = max(v%, b%)

FOR i = 1 TO t
PRINT "()"
NEXT i

FUNCTION max (a AS INTEGER, b AS INTEGER)
IF a% >= b% THEN max = a% ELSE max = b%

END FUNCTION