#!/usr/bin/perl

use warnings;
use strict;

open(FILES, "<FILES") or die "Can't open FILES\n";

# Delete old results
while (<FILES>) {
    chomp;
    my $f = $_;
    system("rm -f $f");
}

my $prg = "../src/nrg";

system("$prg -d -p param.test >log.d");
system("$prg -p param.test >log.nrg");
