s!.(\w+)]!(@{[$1=~/./g]})!,y/()| /{},/,s/(B|{[^}]+})\?/{,$1}/g,print<"$_\n">for<>