arrayp.lsp 800 Bytes