(defun menu ()
  (format t "Press \"1\" to print \"hi\" ~%")
  (format t "Press \"2\" to print \"suck\" ~%")
  (format t "Press \"3\" to print \"bitch\" ~%")
  (format t "Press \"4\" to print \"ass\" ~%")
  (format t "Press \"5\" to print \"dog\" ~%")
  (format t "Press \"6\" to open htop ~%")
  (format t "Press \"q\" to quit \"dog\" ~%"))

(defun choices ()
  (format t "~%Please enter a number: ")
  (let ((input (read-line)))
    (cond
      ((string= "1" input)
       (format t "Hi! ~%"))
      ((string= "2" input)
       (format t "You Suck!~%"))
      ((string= "3" input)
       (format t "use a bish~%"))
      ((string= "4" input)
       (format t "Ass!~%"))
      ((string= "5" input)
       (format t "Hey there dog~%" ))
			((string= "6" input)
			 (shell "htop"))
      ((string= "q" input)
       (format t "Bye!~%"))
      ((string= "menu" input)
       (format t "~%")
       (menu))
      (t
       (format t "You failed! " )))
    (unless (string= "q" input)
      (choices))))

(defun main ()
  (menu)
  (choices))
(main)