#! perl -nlw
next if $q;
$p=1 if $_ eq 'Package: nettle';
if($h){
    if (/^\s*$/){
        $q=1;
        next;
    }
    #print;
    die unless /^ (\S+) \S+ (.+)/;
    $hash=$1;$name=$2;
    print "$hash  $name";
    die unless $name =~ /^n/; # we make assumptions of the subdirectory to download it from later
}
if($p){
    #print;
    $h=1 if $_ eq 'Checksums-Sha256:';
}