NB. Definitions for Language Translation chapter

varp =: monad def ' _1 < (4 !: 0) < , y.'

exprp =: monad define
NB. parse sentence into words
words =. word y.
NB. check for variable reference
if. 1 = tally words
    do. varp open words
NB. check for verb application
  elseif. 2 = tally words
    do. (exprp open 0 from words) and exprp open 1 from words
NB. check for verb definition
  elseif. 3 = tally words
    do. ('monad' match open 0 from words) and ('def' match open 1 from words) and exprp do open 2 from words
  elseif. 1
    do. 0
end.
)