1. Colors are horrible
2. Pipes are horrible way to create code
3. wtf are those *1 and *2 in your aliases? should those be $1 and $2 or what?
/pat {
set %n $count($1,.)
inc %n
set %i 1
set %p 1
set %l $len(*2)
;%l is always 2set %tc $replace(*2,$chr(32),¶)
;%tc is always *2set %ec
:loop
set %ec %ec $+ $gettok($1,%i,46) $+ $mid(%p,1,%tc)
inc %i
inc %p
if (%i <= %n) goto part2
set %i 1
:tongue:art2
if (%p <= %l) goto loop
say $replace(%ec,¶,$chr(32))
}