<>;for$a(glob<>){$_.=<>;y/12 /21/d;s/^(1*+\w)(?1){$a}\K.*//s}print-/\n/||y///c