#!/usr/bin/env 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 $prg1 = "../nrginit";
my $prg2 = "../nrgrun";

system("$prg1 >log.d");
system("$prg2 >log.nrg");
