diff --git a/day09.hs b/day09.hs
index 0a7948d..ab09a4d 100644
--- a/day09.hs
+++ b/day09.hs
@@ -1,17 +1,13 @@
-import Data.Either (rights)
-import Data.Map qualified as M
 import Data.Text qualified as T
-import Data.Text.Read qualified as TR
 import Lib (readFile', tRead)
-import Text.Parsec
 
 main :: IO ()
 main = do
   input <- map (map tRead . T.words) . T.lines <$> readFile' "day09.in"
-  
+
   putStr "Q1: "
   print . sum $ map (sum . map last . extrap) input
-  
+
   putStr "Q2: "
   print . sum $ map (sum . map last . extrap . reverse) input