@_=(6,1,21,3,21,1,0,2,21,11,2,6,24,21,
11,2,24,2,1,18,1,24,10,11,10,2,12,7,15
,12,2);sub _{for(@_){$!=~m{.{$_}(.+?)}
;push@=,+$+}@_=(2,18,24);+$=[8]++;for(
@_){+$=[+$_]++}$=[8]++;+@_=(12,16,21);
for(@_){$=[+$_]++,$=[$_]++,chop$=[+$_]
;if($_==21){$=[$_]++}}for(0..1){$=[13]
++}}grep@_,open 0,0;&_;$=[8]++;print@=