I am surprised that no one did this in a LISP yet.