%
% stack: section
%

 1 exch
 {

%
% stack: monad-index section
%
  dup "Case """ fourth 1 1 parse

  isnull ?
%
% stack: monad-index section case-sect
%
  """" slice
%
% stack: monad-index section case-name case-body
%
  exch
  _mep ^
  dup !Name
  _name ^
  dup !Verb

  ^"|" &;
  exch
  dup !Action
  quoter &&;
  "monads.lst" ofbin append

  _Verb
  "." "\" replall
  0  make !\
%
% stack: empty [ . . . next-file ] sect-idx content section type
%
  _Name        "Name" \!
  _Verb        "Verb" \!
  "Base"       "Type" \!
  _Action      "Body" \!
  ""           "Description" \!
  "Basis" !naming
  "." _Verb Str.Find?
  {
   "Classed" !naming
  } if
  _naming      "Naming" \!
  _object      "Object" \!

  incr2nd
 } loop
%
% stack: monad-index section case-sect
%
 pop3