Unblock In Autocad Shortcut File

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