#!/bin/perl
# use strict;
use warnings;

use File::stat;

format STDOUT_TOP =
Size      | Diff      | Delta | Path
--------------------------------------------------------------
.

format STDOUT =
@>>>>>>>>> @>>>>>>>>> @##.##% @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$size, $diff, $delta, $path
.

my $lastsize;

foreach (  glob('../0.*.*/bundles/cjs/pkg.js')  ) {
    $size = stat($_)->size;

    if(!$lastsize) {
        $lastsize = $size;
    }

    $diff = $size - $lastsize;

    $delta = ($size - $lastsize) / $lastsize * 100;
    $lastsize = $size;

    $path = $_;
    write;
}

$lastsize = 0;

print "\n";

foreach (  glob('../0.*.*/bundles.terse/cjs/pkg.js')  ) {
    $size = stat($_)->size;

    if(!$lastsize) {
        $lastsize = $size;
    }

    $diff = $size - $lastsize;

    $delta = ($size - $lastsize) / $lastsize * 100;
    $lastsize = $size;

    $path = $_;
    write;
}


# foreach (glob('../0.*.*/bundles.terse/cjs/pkg.js')) {
#     print `wc -c $_`
#     write;
# }