unless (length $target) {
        print join ("-", @$used), "\n";
        return;
    }