Add export script for groceries

At this point, I may be taking this idea too far, but what the heck?

scratch/groceries/export.hs

@@ -0,0 +1,11 @@
+module Main where
+
+import Data.Function ((&))
+import qualified Data.List as L
+
+-- | Run this to export the grocery list.
+main :: IO ()
+main = do
+  x <- readFile "./list.txt"
+  x & lines & filter (not . L.isPrefixOf "- 0x") & unlines & putStrLn
+  pure ()