diff --git a/DeathSocketCLI/Commands.fs b/DeathSocketCLI/Commands.fs
index bf7a6cb..7b605e6 100644
--- a/DeathSocketCLI/Commands.fs
+++ b/DeathSocketCLI/Commands.fs
@@ -10,6 +10,8 @@
 
         let test () = "Death Socket is working."
 
+        let exit () = Environment.Exit (Environment.ExitCode)
+
         let ``add-grid`` imgPath numRows numColumns pWidth colour newPath =
             try
                 printfn "[INFO.] Adding grid to image..."