(while(print(read-from-string(do((s(read-line)(regexp-replace #/([^()]*)\(([^()]*)\)/s"[\\1 \\2]")))((#/\]$/s)s)))))