: ircII2.2.9+6 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
:}