#!/usr/bin/perl -w

use strict;

my $tmpdir = "tmp";
run("rm -rf '$tmpdir'");
mkdir $tmpdir;

run("../init_data.pl ../data/waxholm/");
run("../bootstrap_hmms.pl ../data/waxholm/");
run("../train_model.pl ../data/stoneage-swe-200/");
run("../eval_rec.pl stoneage-swe.dict stoneage-swe.net ../data/stoneage-swe-20.txt ../data/stoneage-swe-20 final/hmm_mono/hmmlist final/hmm_mono/hmmdefs");

sub run {
    my $command = shift;
    print "$command\n";
    system $command;
}
