use strict;
use warnings;

my $n = <>;
if ($n =~ /4/ and $n =~ /6/) {
    print "Beautiful\n";
} else {
    print "...\n";
}