diff --git a/README.md b/README.md
index 92124dd..cf62b90 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,10 @@
 # cl-quantum
 
-This is just some experiments with quantum computing emulation that I am doing
-for a school project.
+`cl-quantum` is a quantum circuit simulator for common lisp. It also has a basic
+vector and matrix algebra library included. `cl-quantum` has external
+requirements to use the main simulator, however, `cl-ppcre` is required to parse
+back pretty-printed states. `cl-quantum` has been tested with SBCL 2.4.9 on
+ArchLinux and was able to perform a simple Grover's search algorithm with 11
+qbits in about 5 minutes.
+
+I wrote this for a final project for my PHYSICS-103 class a LACC.
diff --git a/examples/grover.lisp b/examples/grover.lisp
index 9d28546..e185662 100644
--- a/examples/grover.lisp
+++ b/examples/grover.lisp
@@ -16,10 +16,10 @@ bits and finds when the state is equal to TARGET."
     ;; Setup
     (loop for i below bits do (:h i))
 
-    ;; Oracle
     (loop
       repeat (count-grover-iterations bits 1)
       do
+         ;; Oracle
          (loop for i below bits
                for cur = (logand (ash target (- i)) 1)
                when (zerop cur)