rearvn , dito 80lisp.