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

use List::Util 'first';

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

say sort grep {
	my %nd;
	$nd{$_}++ for split '';
	!first { $av{$_} < $nd{$_} } keys %nd;
} <>