Someone

alias sajoin.range {
  var %a = $gettok($2,1,45), %s
  while (%a isnum $2) {
    %s = $addtok(%s,$+($chr(35),%a),44)
    if ($numtok(%s,44) == 20) {
      sajoin $1 %s
      var %s
    }
    inc %a
  }
  if (%s) sajoin $1 %s
}