diff --git a/index.md b/index.md
index 5f39825..018ff6c 100644
--- a/index.md
+++ b/index.md
@@ -15,35 +15,27 @@ Any article in this website is WIP. And they will always be WIP.
Go to the [GitLab repository](https://gitlab.com/qorg11/kill9), fork
it, change whatever, make a pull request, ill merge, and your change
will appear here. If you don't want to use Git,
-[email](mailto:qorg[@)vxempire.xyz) me a diff and I'll patch the
+[email](mailto:qorg\[@\)vxempire.xyz) me a diff and I'll patch the
file. Atribution will be given if wanted.
Onion
-(defconstant NUMBER_OF_PEOPLE 10)
-(defvar *key*)
-(defvar *i* 0)
+(defconstant NUMBER_OF_PEOPLE 10)
+(defvar *i* 0)
+(defun rewrite (n) n)
+(defun memory (n) n)
-(defun rewrite (n) n) ;; idk what's this
-(defun memory (n) n) ;; so it don't do anything
-
-(princ "Beginning System Reset.....")
-(terpri)
-(princ "ALL RESET? y/n")
-(terpri)
-(setq *key* (read))
-
-(if (string-equal *key* "y")
-
- (loop while (<= *i* NUMBER_OF_PEOPLE)
+(format t "Beginning system reset.....")
+(if (y-or-n-p "ALL RESET?")
+ (loop while (<= *i* NUMBER_OF_PEOPLE)
do
- (rewrite (memory *i*))
- (defparameter *i* (+ *i* 1))))
+ (rewrite (memory *i*))
+ (defparameter *i* (1+ *i*))))
-
+
car car car car cdr cdr cdr cdr car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply