README: update quoted example.lsp

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)
        )
       ("$ "))