\l t
\l p
\l c
\l e
\l d
\l b

//     = <name><vars> is <bdy> | bdy ;
// bdy = <exp> {where <whc>}
// whc = wh1 {and <whc>}
// wh1 = <name><vars> is <exp>
// / = comment
// \ = stop 
// \x = escape x (nyi)

exe:{[t]:[</t?/:$`is`where;Def;Run]t}
lines:{{1_,/" ",'x}'(&~x[;0]=" ")_ x}
decomment:{:[#x;x@&~"/"=x[;0];x]}
code:{tokens'lines decomment(x[;0]?"\\")#x}
script:exe'code@0::

Def:{[t]
 i:t?"is"
 k:i#t
 t:(i+1)_ t
 s:`$*k
 v:`$1_ k
 p:parse[s;v]t
 c:compile[v]. p
 .[s;();:;c]
 s}

Run:{[t]
 p:parse[`;()]t
 c:compile[()]. p
 eval c}

def:Def tokens@
run:Run tokens@

show:`0:disp compile[()]. parse[`;()]tokens@

script"test.lk"