#!/usr/bin/perl
use v5.14;
use warnings;

my %av;
$av{$_}++ for split '', <>;
my @ans;

MAIN:
while (<>) {
	my %cr = %av;
	--$cr{$_} < 0 and next MAIN for split '';
	push @ans, $_
};
say sort @ans