var %i 1 while ( $chan(%i) ) { /describe $chan(%i) text here inc %i }
alias ame2 { var %i = 1,%t while ( $chan(%i) ) { var %t = $+(%t,$chan(%i),$chr(44)) if ( $numtok(%t,44) == 5 ) { describe $left(%t,-1) $1- var %t } inc %i } $iif(%t,describe $left(%t,-1) $1-) }