alias rbot if ([$0]) {
	@ rn.n = [$0]
	@ rn.r = fix.ab.n($ab[$rn.n])
	ee ${lc0}${rn.r}${x} removed..
	@ rename(${ev.dir}/abots.ev ${ev.dir}/abots.ev.old)
	@ rb.o = open(${ev.dir}/abots.ev W T)
	for (@i = 1, i <= ab.n, @i++) {
		if (i != rn.n) {
			@ write($rb.o $ab[$i])
		}{
			^assign -ab[$i]
		}
	}
	@ close($rb.o)
	^readbots
}{ehelp rbot}