while(/^[^\(]*\([^\)]*\(/){s/\(([^\(\)]*)\)/\[\1\]/}
s/.*?\((.*?)\).*/\1/;
tr/\[\]/\(\)/;