макрос#define eachIn( %coll, %meth )  ##continue
 s ##Unique(new)="" for { s ##Unique(old) = %coll.Next( ##Unique(old) ) Q:##Unique(old)=""  ##continue
     d %meth( ##Unique(old), %coll.GetAt( ##Unique(old) ) )  ##continue
 }  k ##Unique(old) 

всё вместеInclude eachIn

/// пример использования макроса
Class laconic.foreach [ Abstract ] {

ClassMethod Example() {

 #;готовим коллекцию  
 s list = ##class(%ListOfDataTypes).%New()
 d list.InsertList( $lfs("2,1,4,3,6,5,8,7,9") )
  
 #; использование
 $$$eachIn(list,..Print) 
 
 #; или полная запись
 #; $$$eachIn(list,##class(laconic.foreach).Print)  

}

ClassMethod Print( i, el ) {   w !, i, "-> ", el  }

}