sub human {
        my %h;
        @h{@_}=@_;
        $_=join(',',map { $h{$_}?$_:"*" } $_[0]..$_[-1]);
        s/(\w+),(\w+,)*(\w+)/$1-$3/g;
        s/,(\*,)+/,/g;
        split(",");
}