Not "yet another parser" - this looks like a full-fledged interpreter :t

`define i, n=10,`

x=-2*pi, step=4*pi/(n-1),

y1[n+1], y2[n+1], y3[n+1];

while (i<=n)

(

y1[i] = sin(x),

y2[i] = e^-abs(x)*sin(2*pi*x),

y3[i] = limit(tan(0.7*(x-pi)),-10,10),

x = x + step,

i = i + 1

);

define y4[n=6],

factorial(x)

(

if(x>0)(

x*factorial(x-1)

) else (

1

)

);

for(i=0,i<n,i=i+1)

(

y4[i]=(factorial(i))

);

P.S.: It needs JWasm to build, ML 6.15 chokes.