#!/usr/bin/perl -w

use strict;

@ARGV == 2
	or die "syntax: $0 key fields\n";

my ($key, $fields) = @ARGV;

my %field_index;
my $i = 1;
for (split /\s+/, $fields, -1) {
	$field_index{$_} = $i++;
}

for (split /\s+/, $key, -1) {
	print "$field_index{$_}\n"
}