diff --git a/args.rkt b/args.rkt
index 5e4d56f..8dd1422 100644
--- a/args.rkt
+++ b/args.rkt
@@ -10,35 +10,39 @@
 (provide (all-defined-out))
 
 (define (check-args args)
-  (let
-      ([args-length (vector-length args)])
-    (cond
-      [(equal? args-length 0)
-       (util:display-hash-ref messages:messages 'show-usage)]
-      [(and
-        (equal? args-length 1)
-        (equal? (vector:vector-member config:list-command args) 0))
-       (util:show-list)]
-      [(and
-        (equal? args-length 2)
-        (equal? (vector-ref args 0) config:add-command))
-       (util:add-item args)]
-      [(and
-        (equal? args-length 2)
-        (equal? (vector:vector-member config:remove-command args) 0)
-        (not (equal? (vector:vector-member "0" args) 1))
-        (vector:vector-member
-         (vector-ref args 1)
-         (list->vector
-          (map number->string (list:rest (list:range (length (util:file->string-list config:path))))))))
-       (util:remove-item args)]
-      [(and
-        (equal? args-length 1)
-        (equal? (vector:vector-member config:initialize-command args) 0))
-       (init:initialize)]
-      [(and
-        (equal? args-length 1)
-        (member (vector-ref args 0) config:help-command))
-       (util:display-hash-ref messages:messages 'show-help)]
-      [else
-       (util:display-hash-ref messages:messages 'show-usage)])))
+  (let([args-length (vector-length args)])
+    (cond [(equal? args-length 0)
+           (util:display-hash-ref messages:messages 'show-usage)]
+
+          [(and
+            (equal? args-length 1)
+            (equal? (vector:vector-member config:list-command args) 0))
+           (util:show-list)]
+
+          [(and
+            (equal? args-length 2)
+            (equal? (vector-ref args 0) config:add-command))
+           (util:add-item args)]
+
+          [(and
+            (equal? args-length 2)
+            (equal? (vector:vector-member config:remove-command args) 0)
+            (not (equal? (vector:vector-member "0" args) 1))
+            (vector:vector-member
+             (vector-ref args 1)
+             (list->vector
+              (map number->string (list:rest (list:range (length (util:file->string-list config:path))))))))
+           (util:remove-item args)]
+
+          [(and
+            (equal? args-length 1)
+            (equal? (vector:vector-member config:initialize-command args) 0))
+           (init:initialize)]
+
+          [(and
+            (equal? args-length 1)
+            (member (vector-ref args 0) config:help-command))
+           (util:display-hash-ref messages:messages 'show-help)]
+
+          [else
+           (util:display-hash-ref messages:messages 'show-usage)])))