Create TP4.lsp