goster <dialogadi> <grup>
alias goster {
  var %d $1,%ids 8-23.24-36.37-49
  _did -h %d $replace($deltok(%ids,$1,46),$chr(46),$chr(44))
  _did -v %d $gettok(%ids,$1,46)
}

alias _did if ($_-($3)) echo . did $1-2 $ifmatch $4-


alias _- {
  var %i 1,%m,%r
  tokenize $iif($chr(44) isin $1-,44,32) $1-
  while $ [ $+ [ %i ] ] {
    %m = $ifmatch
    if (- isin %m) %m = $_gap($gettok(%m,1,45),$gettok(%m,2,45))
    %r = $addtok(%r,%m,44)
    inc %i
  }
  return %r
}

alias _gap { var %i $1,%r $1 | while %i <= $2 { %r = $addtok(%r,%i,44) | inc %i } | return %r }