#!perl -lp
/[[({<]*/g;$_=s/<\G>|{\G}|\(\G\)|\[\G]//?redo:$_?"failed at: ".($'||EOL):yes