move some experiment code into etc-lisp