Sample program 2

import "test2.o";

#store a test file in a variable
t0 = file "test0.o";
#store a test block in a variable
t2 = test(x) {
#some other test
%print "Testing "+$x+"function.";
$x(1)->1;
$x(2)->3;
$x(5)->7;
}
#specify the verbose and logfile switches
//v,llogfile

if(foo(5)->3) {
#eval t0
$t0;
}
else {
#eval $t1
$t1(x);
$t1(y);
}

//-v,-l