Unblock In Autocad - Shortcut [better]

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