diff --git a/bin/dune b/bin/dune
index 69dd4ad..6ed8299 100644
--- a/bin/dune
+++ b/bin/dune
@@ -1,2 +1,2 @@
 (executable
- (name main))
+ (name inspector))
diff --git a/bin/inspector.ml b/bin/inspector.ml
new file mode 100644
index 0000000..3a7dbe0
--- /dev/null
+++ b/bin/inspector.ml
@@ -0,0 +1,10 @@
+let load_lines filename =
+  In_channel.with_open_text filename In_channel.input_lines |> Array.of_list
+
+let () =
+  if Array.length Sys.argv < 2 then (
+    Printf.eprintf "Usage: %s <logfile>\n" (Filename.basename Sys.argv.(0));
+    exit 1);
+
+  let contents = load_lines Sys.argv.(1) in
+  Printf.printf "Loaded %d lines\n" (Array.length contents)
diff --git a/bin/main.ml b/bin/main.ml
deleted file mode 100644
index be5e39e..0000000
--- a/bin/main.ml
+++ /dev/null
@@ -1 +0,0 @@
-print_endline "Hello"