sub beautify
{
    my %stuff;
    $stuff{$_}++ for(@_);
    return sort { $stuff{$a} <=> $stuff{$b} } keys %stuff;
}