+ my $align = [0, 3, 2, 1]->[$nl % 4];
+ $total += $nl + $align;
+ my $l = $bsp[$_]->[1];
+ my $szi = $lumpsize{$lumpname[$_]};
+ my $li = $szi ? " (" . ($l / $szi) . ")" : "";
+ my $nli = $szi ? " (" . ($nl / $szi) . ")" : "";
+ print "BSP lump $_ ($lumpname[$_]): offset $bsp[$_]->[0] length $l$li newlength $nl$nli\n";