17 lines
213 B
Text
17 lines
213 B
Text
"[[]][]"
|
|
0 var acc
|
|
|
|
len for
|
|
get dup
|
|
'[' == if acc 1 + var acc endif
|
|
']' == if acc 1 - var acc endif
|
|
acc 0 < if exitfor endif
|
|
endfor
|
|
|
|
print
|
|
acc 0 < if
|
|
" is NOT ok"
|
|
else
|
|
" is OK"
|
|
endif
|
|
print
|