finish machine.lisp.
still need some debugging to make it work.