(load (replace {\.[^\\.]*$} (main-args 0) ".lsp" 0))