F

README.md

@@ -1,2 +1,4 @@
 # duco-lisp
 Duco miner in clisp
+
+fail lol

main.lisp

@@ -1,4 +1,5 @@
 (defvar username)
+(defparameter serverip "https://raw.githubusercontent.com/revoxhere/duino-coin/gh-pages/serverip.txt")
 
 (defun get-username (prompt) ; utilities function to get username
   (clear-input)                     
@@ -12,6 +13,9 @@
   (format t "Hello ~c[32m~a~c[0m! Welcome to the ~c[33mDuinocoin~c[0m lisp miner! ~%" #\ESC username #\ESC #\ESC #\ESC)
   )
 
+(defun actually_mine()
+  (loop
+   ()
+   )
+)
 (init)
-
-