alias abot if ([$1]) {
	@ ab.o = open(${ev.dir}/abots.ev W T)
	@ ab.n1 = [$0]
	@ ab.p = [$1]
	@ ab.h1 = gethost($ab.n1)
	@ ab.r1 = ab.n1##[!]##ab.h1##[,]##ab.p
	@ ab.w = encode($ab.r1)
	ee writing ${h0}[${hw}$ab.n1${h0}]${x} to ${ev.dir}/abots.ev..
	@ write($ab.o $ab.w)
	@ close($ab.o)
	^readbots
}{ehelp abot}