diff --git a/misfortune.cabal b/misfortune.cabal
--- a/misfortune.cabal
+++ b/misfortune.cabal
@@ -1,6 +1,6 @@
 cabal-version:          3.0
 name:                   misfortune
-version:                0.1.2
+version:                0.1.2.1
 stability:              experimental
 
 author:                 James Cook <mokus@deepbondi.net>
@@ -143,3 +143,8 @@
   build-depends:        monad-loops,
                         regex-base,
                         regex-pcre
+
+executable misfortune-strfile
+  import:               main
+  main-is:              StrFile.hs
+  other-modules:        Data.Fortune
diff --git a/src/StrFile.hs b/src/StrFile.hs
new file mode 100644
--- /dev/null
+++ b/src/StrFile.hs
@@ -0,0 +1,13 @@
+module Main where
+
+import Data.Fortune
+import System.Environment
+
+main = do
+    args <- getArgs
+    mapM_ index args
+
+index file = do
+    fortune <- openFortuneFile '%' True file
+    rebuildIndex fortune
+