write-char.lsp 1 KB