#!/usr/bin/perl

                $|++;$_L=$K=
       '.';$([199].=$_L.=join 10
  ,<{\\{,\\}}>;            for((@()){
 undef$                      };*::a={a,$K.$
                              T,*$=\$:};$$=Y
                              x(((666)));{$;
                            =$$?join$$,$$,$a
                            {a}:$_L;$;=~tr
                          )Y).);**=
                        \$$$;$*=l1
                       unless 0||
                      defined
                    $*;$*=~#
                    s{$a{a}}
                      $die unless$g;
                          for($S=$*.$}
                             ){($*)=m(^(?:
                               $;)*($a{a}*)
                                \z)x;$==s
                                 $\$;$\$\$$xg
                                  ;;y;Y;;dc;y;Y
                                  ;z;;m.\.*..[$}
                                   =$&  ]}redo
                                 if chop$$
 ;}if(($!                       =$==~y            cccc
 )!=!!$!){$=                -=$=;$__          ++;}$__.=$=
     ;$__=~s"^(.+)([ -8])"\2"and              do{print$1,
         $K;$T.=chop$K}} print                  "$__\n"