From 8f1d32276a3337f83913334136745a8a6bd41dbb Mon Sep 17 00:00:00 2001
From: HAYAMA_Kaoru <iyahaya@nifty.com>
Date: Thu, 5 Dec 2024 14:35:22 +0900
Subject: [PATCH] README: update quoted `example.lsp`

---
 README.md | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index bc82106..0d1ec4c 100644
--- a/README.md
+++ b/README.md
@@ -13,13 +13,13 @@ Lispect
 
 ```example.lsp
 (block main
-  (if (< (length args) 2)
+  (if (< (length ARGV) 2)
     (progn
-      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
+      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" EXECUTABLE-NAME PROGRAM-NAME)
       (return-from main nil)))
 
-  (let ((account (car args))
-        (password (cadr args))
+  (let ((account (car ARGV))
+        (password (cadr ARGV))
         (sshpid nil))
 
     (with-handler
@@ -44,6 +44,9 @@ Lispect
 
     (expect*
       ("Permission denied"
+       (expect "password:")
+       (send #\U3)
+       (wait sshpid)
        (return-from main nil)
        )
       ("$ "))