#!/usr/bin/perl
# SPDX-License-Identifier: MIT
use Getopt::Long;
use strict;
use warnings;
my $strip;
&Getopt::Long::Configure(qw(bundling));
&GetOptions("strip=s" => \$strip);
$strip += 0;
my $dsize = scalar(@ARGV) * 64;
my $ofs = 12 + $dsize;
print "PACK", pack("VV", 12, $dsize);
for (@ARGV) {
	my $n = $_;
	$n =~ s{^/}{};
	for (my $i = 0; $i < $strip && $n =~ s{^[^/]+/}{}; ++$i) {}
	print pack("Z56VV", $n, $ofs, -s $_);
	$ofs += -s _;
}
print for <>;
