Forums Scripts & Popups how to make: ...... a..... an.... ans... answ.. ?

alias answer {
  var %ans = $replace($1, $chr(32), $chr(1)), %show = $2, %a = 1
  while (%a <= $len(%ans)) {
    var %l = $mid(%ans, %a, 1), %final = $+(%final,$iif(%a <= %show, %l, .))
    /inc %a
  }
  return $replace(%final, $chr(1), $chr(32))
}