/* ircII2.2.9+6  to current (ircII2.8-EPIC2) version */
alias repeat fe ($jot(1 $0)) r.x {$1-}

:
:  ircII2.2.9+5 version
:alias repeat for (@r.x=0,$r.x < [$0],@r.x++) {$1-}
:
:  ircII2.2.9 version
:alias repeat {
:	@ rep.cnt = [$0]
:	while ( rep.cnt > 0 )
:	{
:		$1-
:		@rep.cnt = rep.cnt - 1
:	}
:	^assign -rep.cnt
:}
:
:  Recursion version
:alias repeat {
:	if ([$0] > 0)
:	{
:		repeat ${[$0]-1} $1-
:	}
:}
:
