$_=q^oPVQ{DKJQM@W{u@WI{mDFN@W^^q$%$x($^F.4);sub x{(split//=>$=>>$^F)[$|++]};$@=
qq;6I2R}CP9F\n;^q;{([<**>])};;y y^y y;use Tk;$;=q;X:>B;^q<([])>;$,=new$@;$b=q q
!;=6q^q<O>x+x;$,->$b(q>s*;&*(?,7?<2>^qq$^$x(&x+7),\$_)->$;;$,->repeat($=/$^F.$[
=>sub{s{(.)(.*)};$2$1;});eval(q qYjddBtcbq^q<justperl>^q$~$x($^F<<$^F));#mawe:)