#!/bin/csh
foreach A (life lexgen yacc leroy simple vliw)
uptime > ${A}.nj.out
sml <<ZZZ >>& ${A}.nj.out
use "timeit.sml";
timeit use "${A}.sml";
timeit Main.doit ();
ZZZ
end

foreach A (life lexgen yacc leroy simple vliw)
uptime > ${A}.poly.out
poly  <<ZZZ >>& ${A}.poly.out
use "poly.sml";
timing true;
use "${A}.sml";
Main.doit ();
ZZZ
end
