$~=@$b/2;for($;=$|++;(($:,$a)=($$b[$;],$$b[$;+$~]))&&$a=~/^\d+$/||($\=$/,print
("@$b[$~*2...3+$~*2]"),-0);$;++){BEGIN{@$b[1,3,4,6,2,5,$|]=(("aaaa")x4,("aaa")
x2,"Aaaa");@$b[9,8,12,11,7,13,10]=sort{$a<=>$b}(4853,271082,9171,17007,238034,
141058,172191)}$:++for 1..$a;push@$b,$:;$;<2&&next;40%$;or$$b[$#$b-1].=pop@$b}