diff --git a/2021/day13.hs b/2021/day13.hs
index 13959a7..91d01bd 100644
--- a/2021/day13.hs
+++ b/2021/day13.hs
@@ -31,9 +31,7 @@ main = do
     putStrLn "part 2: "
     let dots2 = map (\d -> foldl (flip fold) d folds) dots
     let dots2' = S.fromList dots2
-    let min_x = minimum $ map fst dots2
     let max_x = maximum $ map fst dots2
-    let min_y = minimum $ map snd dots2
     let max_y = maximum $ map snd dots2
     mapM_ (\y -> do
             mapM_ (\x -> putChar (if (x,y) `S.member` dots2' then '#' else '.')) [0..max_x]