Would you like the full sequence or a lisp routine to automate unblocking?