diff --git a/src/messages.rkt b/src/messages.rkt
index 329a353..441a4a4 100644
--- a/src/messages.rkt
+++ b/src/messages.rkt
@@ -7,123 +7,82 @@
 (define (indent string)
   (string-append "\t" string))
 
-(define line-gap-single "\n")
-(define line-gap-double "\n\n")
-(define space " ")
-(define tab "\t")
-(define tab-double "\t\t")
+(define newline "\n")
+(define newline-double "\n\n")
 
 (define messages
-  (hash
-    'show-help
-    (string-append "rodo"
-                   line-gap-double
+  (hash 'show-help (string-append
+                     "NAME" newline
+                     "====" newline
+                     "rodo" newline-double
 
-                   "NAME"
-                   line-gap-single
-                   tab "rodo - A list-management tool"
-                   line-gap-double
+                     "DESCRIPTION" newline
+                     "===========" newline
+                     "rodo is a minimalistic list-management tool. It does not use any data formats, and cannot remove multiple items at once." newline-double
 
-                   "SYNOPSIS"
-                   line-gap-single
-                   tab "rodo [command] <args>"
-                   line-gap-double
+                     "USAGE SYNTAX" newline
+                     "============" newline
+                     "rodo [command] <args>" newline-double
 
-                   "DESCRIPTION"
-                   line-gap-single
-                   tab "rodo is a minimalistic list-management tool. It does not use any data formats, and cannot remove multiple items at once."
-                   line-gap-double
-                   tab (format "I made this tool to separate my hobby todos and my important todos. I do this by only using ~a to organize my hobby todos on the command line, and my important todos on a synced calendar elsewhere." config:program-name)
-                   line-gap-double
+                     "COMMANDS AVAILABLE" newline
+                     "==================" newline
+                     (car config:initialize-commands) " - " (format "Creates a list file located at ~a" config:list-file) newline-double
 
-                   "COMMANDS"
-                   line-gap-single
-                   ;; initialize-command
-                   tab (car config:initialize-commands)
-                   line-gap-single
-                   tab-double (format "Creates a list file located at ~a" config:list-file)
-                   line-gap-double
+                     (car config:list-commands) " - " "Displays items from your list" newline-double
 
-                   ;; list-command
-                   tab (car config:list-commands)
-                   line-gap-single
-                   tab-double "Displays items from your list"
-                   line-gap-double
+                     (car config:add-commands) " <args> - Adds an item to your list" newline-double
 
-                   ;; add-command
-                   tab (car config:add-commands) space "<args>"
-                   line-gap-single
-                   tab-double "Adds an item to your list"
-                   line-gap-double
+                     (car config:remove-commands) " <args> - Removes an item from your list" newline-double
 
-                   ;; remove-command
-                   tab (car config:remove-commands) space "<args>"
-                   line-gap-single
-                   tab-double"Removes an item from your list"
-                   line-gap-double
+                     "USAGE EXAMPLES" newline
+                     "==============" newline
+                     (car config:initialize-commands) " usage:" newline
+                     (format "~a ~a" config:program-name (car config:initialize-commands)) newline-double
 
-                   "USAGE EXAMPLES"
-                   line-gap-single
-                   ;; initialize-command
-                   tab (car config:initialize-commands)
-                   line-gap-single
-                   tab-double (format "~a ~a" config:program-name (car config:initialize-commands))
-                   line-gap-double
+                     (car config:list-commands) " usage:" newline
+                     (format "~a ~a" config:program-name (car config:list-commands)) newline-double
 
-                   ;; list-command
-                   tab (car config:list-commands)
-                   line-gap-single
-                   tab-double (format "~a ~a" config:program-name (car config:list-commands))
-                   line-gap-double
+                     (car config:add-commands) " usage:" newline
+                     (format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-commands)) newline
+                     (format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-commands)) newline-double
 
-                   ;; add-command
-                   tab (car config:add-commands)
-                   line-gap-single
-                   tab-double (format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-commands))
-                   line-gap-single
-                   tab-double (format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-commands))
-                   line-gap-double
+                     (car config:remove-commands) " usage:" newline
+                     (format "~a ~a 2" config:program-name (car config:remove-commands)) newline-double
 
-                   ;; remove-command
-                   tab (car config:remove-commands)
-                   line-gap-single
-                   tab-double (format "~a ~a 2" config:program-name (car config:remove-commands))
-                   line-gap-double
+                     "Can't see the whole help message?" newline
+                     "=================================" newline
+                     "Try running the command below:" newline
+                     (format "~a ~a | less" config:program-name (car config:help-commands)) newline)
 
-                   "Can't see the whole help message? Try running:"
-                   line-gap-single
-                   (format "~a ~a | less" config:program-name (car config:help-commands))
-                   line-gap-single)
+        'empty-list "> There is nothing in your list\n"
 
-    'empty-list "> There is nothing in your list\n"
+        'show-usage (format "> For usage type ~a -h\n" config:program-name)
 
-    'show-usage (format "> For usage type ~a -h\n" config:program-name)
+        'creating (format "> Creating a list in ~a...\n" config:list-file)
 
-    'creating (format "> Creating a list in ~a...\n" config:list-file)
+        'creation-error (format "> Error: Could not create a list file in ~a\n" config:list-file)
 
-    'creation-error (format "> Error: Could not create a list file in ~a\n" config:list-file)
+        'file-already-exists (format "> Error: A list file already exists in ~a\n" config:list-file)
 
-    'file-already-exists (format "> Error: A list file already exists in ~a\n" config:list-file)
+        'successfully-created (format "> Your list file was successfully created in ~a\n" config:list-file)
 
-    'successfully-created (format "> Your list file was successfully created in ~a\n" config:list-file)
+        'file-not-found (format "> Error: Could not find ~a\n" config:list-file)
 
-    'file-not-found (format "> Error: Could not find ~a\n" config:list-file)
+        'item-not-found "> Error: Could not find that item\n"
 
-    'item-not-found "> Error: Could not find that item\n"
+        'init-y/n (format "> A list file will be created in ~a\n> Are you sure you want to continue? [y/n]\n" config:list-file)
 
-    'init-y/n (format "> A list file will be created in ~a\n> Are you sure you want to continue? [y/n]\n" config:list-file)
+        'try-init (format "> Try typing ~a ~a to set it up\n" config:program-name (car config:initialize-commands))
 
-    'try-init (format "> Try typing ~a ~a to set it up\n" config:program-name (car config:initialize-commands))
+        'terminating (format "> Exited ~a\n" config:program-name)
 
-    'terminating (format "> Exited ~a\n" config:program-name)
+        'choose-y/n "> Error: Please choose y or n\n"
 
-    'choose-y/n "> Error: Please choose y or n\n"
+        'not-in-list "> Error: Item does not exist\n"
 
-    'not-in-list "> Error: Item does not exist\n"
+        'item-added "> Added \"~a\" to your list\n"
 
-    'item-added "> Added \"~a\" to your list\n"
-
-    'item-removed "> Removed \"~a\" from your list\n"))
+        'item-removed "> Removed \"~a\" from your list\n"))
 
 
 (define y/n (hash 'yes '("yes" "Yes" "y" "Y")