sub beautify {
    my %seen;
    return sort {$a<=>$b} grep {!$seen{$_}++} @_;
}