declare
class Batcher
   meth batch(L)
      for X in L do
         if {IsProcedure X} then {X} else {self X} end
      end
   end
end