Anonymous

alias add.server { 
  if (%aj.servers == $null) {
    set %aj.servers 1
    set %aj.server. [ $+ [ %aj.servers ] ] $$?="Server?"
  }
  else {
    inc %aj.servers 1 
    set %aj.server. [ $+ [ %aj.servers ] ] $$?="Server?"
  }
}
alias connect.servers {
  set %x 0
  while (%x <= %aj.servers) {
    if (%x == 0) {
      inc %x 1
      server %aj.server. [ $+ [ %x ] ]
    }
    else {
      inc %x
      server -m %aj.server. [ $+ [ %x ] ]
    } 
  }
}
alias remove.server {
  set %rm.server $$?="server?"
  set %x 0
  while (%x <= %aj.servers) {
    inc %x 1
    if (%rm.server isin %aj.server. [ $+ [ %x ] ]) {
      unset %aj.server. [ $+ [ %x ] ]
      unset %rm.server
    }
  }
}