hsido.lisp restructuring