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 $+(,$gettok(%p,%z,32)) $+ $($ $+ %y,2))
    inc %y
    inc %z
    if (%z = 5) var %z = 1 
  }
  msg $active %t
  unset %t
}