example.lsp and README: add error cases

- "Could not resolve hostname"
- error catch when ssh is not found
- rename variables
- password error

README.md

@@ -15,36 +15,39 @@ Lispect
 (block main
   (if (< (length args) 2)
     (progn
-      (format (error-output) "Usage: ~A ~A HOSTNAME PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
-      (return-from main nil)
-      )
-    )
-  (defglobal host (car args))
+      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
+      (return-from main nil)))
+  (defglobal account (car args))
   (defglobal password (cadr args))
 
-  (spawn "ssh" host)
+  (with-handler
+    (lambda (c)
+      (format (error-output) "ssh is not found~%")
+      (return-from main nil))
+    (spawn "ssh" account))
+
   (expect*
     ("[fingerprint])?"
      (sendln "yes")
      (expect "password: ")
-     (sendln password)
-     )
+     (sendln password))
     ("password: "
-     (sendln password)
-     )
-    ("Connection refused"
-     (return-from main nil)
-     )
+     (sendln password))
+    (("Connection refused"
+      "Could not resolve hostname")
+     (return-from main nil))
     (30
      (format (error-output) "TIME OUT~%")
+     (return-from main nil)))
+
+  (expect*
+    ("Permission denied"
      (return-from main nil)
      )
-    )
-  (expect "$ ")
+    ("$ "))
   (sendln "echo YOU CAN CALL SOME COMMAND HERE")
   (expect "$ ")
-  (sendln "exit")
-  )
+  (sendln "exit"))
 ```
 
 Install