#!/usr/bin/perl
use 5.14.2;
use warnings;

sub stringToHash {
	my ($string) = @_;
	my @chars = split '', $string;
	my %hash = ();
	for my $char (@chars){
		$hash{$char}++;
	}
	return %hash
}


sub compareHashes{
	my(%hash1, %hash2) = @_;
	for my $k (keys %hash1){
		return 0 if $hash1{$k} > $hash2{$k};
	}
}

my $input = <>;
my %hashIn = stringToHash $input;


my $n = <>;
my @cuvinte = ();
for($i = 0; $i < n; $i++)
{
	$cuvinte($i) = <>;
}
sort @cuvinte;


for my $cuvant (@cuvinte){
	print $cuvant if compareHashes (stringToHash ($cuvant), %hashIn);
}