Miscellany

alias lol {
  var %x = $numtok($$1-,32),%y = 1,%z = 1,%p = 12 7 4 9
  while %y <= %x {
    $iif(%t,set %t %t $+(,$token(%p,%z,32),$($ $+ %y,2)),set %t $+(,$token(%p,%z,32),$($ $+ %y,2)))
    inc %y
    inc %z
    if (%z = 5) var %z = 1 
  }
  msg $active %t
  unset %t
}

alias lolz {
  var %x $len($$1-),%y 1,%z 1
  while %y <= %x {
    if ($mid($1-,%y,1) != $chr(32)) set %t $+(%t,$($chr(3)),$token(04 07 09 12,%z,32),$v1)  
    else { set %t %t $v2
    dec %z }
    inc %y
    inc %z
    if (%z = 5) var %z 1 
  }
  msg $active %t
  unset %t
}