Added lisp along with some study work

lisp/fuckery/what.lisp

@@ -0,0 +1,39 @@
+(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)