sub uniq {
    return @_ ? @_[0, grep {$_[$_] ne $_[$_-1]} 1..$#_] : ();
};