#!/bin/rc

default=http://plan9.stanleylieber.com
janes=http://notreally.info/transport/planes/nighthawk/f-117a/780

options=(default janes)
num=10

switch($1){
case `{echo $options}
	if(~ $2 [0-9]*)
		num=$2
	for(i in `{seq $num})
		time hget $$1 >/dev/null >>[2]wt.^$1
	total=`{cat wt.^$1 | awk '{print substr($3, 0, length($3)-1);}'}
	n=0
	for(i in $total)
		n=`{hoc -e $n^+^$i}
	hoc -e $n^/^`{wc -l wt.^$1} >[2]/dev/null | awk -F '.' '{print $1 "." substr($2, 0, 3);}'
case *
	echo usage: wt [ $options ] [ ... ]>[1=2]
}