/* -*- macsyma -*- */

block([out],tag,
out:read("Enter 1 for interpreted, 2 for Lisp, or 3 for compiled"),
if not member(out,[1,2,3]) then go(tag),
if out=1 then (writefile("rhb.mwi"),batch("rhb.mc"))
else if out=2 then (writefile("rhb.mwl"),load("rhb.lsp"))
else (writefile("rhb.mwv"),load("rhb.vas")));

numer:false;
showtime:all;
display2d:false;

gradef(e(n,z),z,e(n+1,z));
y[0]:1;
y[2]:1/2*e(0,z);

/* now start evaluating */
 
y[0];
y[2];
y[4];
y[6];
y[8];
y[10];
y[12];
y[14];
y[16];
y[18];
y[20];
y[22];

(display2d:true,closefile());