eval echo `perl -pe's%[^[]*(?=])%join",",$&=~/./g%e;y/()|[]/{},{}/;s%({[^}]*}|.)\?%{,$+}%g'`|fmt -1