diff --git a/hs/src/Aoc/Y2020.hs b/hs/src/Aoc/Y2020.hs
index 2be4a72..0807607 100644
--- a/hs/src/Aoc/Y2020.hs
+++ b/hs/src/Aoc/Y2020.hs
@@ -25,6 +25,7 @@ import qualified Aoc.Y2020.D19 as D19
 import qualified Aoc.Y2020.D20 as D20
 import qualified Aoc.Y2020.D21 as D21
 import qualified Aoc.Y2020.D22 as D22
+import qualified Aoc.Y2020.D23 as D23
 
 year :: Year
 year = Year 2020
@@ -50,4 +51,5 @@ year = Year 2020
   , (20, D20.day)
   , (21, D21.day)
   , (22, D22.day)
+  , (23, D23.day)
   ]
diff --git a/hs/src/Aoc/Y2020/D23.hs b/hs/src/Aoc/Y2020/D23.hs
new file mode 100644
index 0000000..105f240
--- /dev/null
+++ b/hs/src/Aoc/Y2020/D23.hs
@@ -0,0 +1,19 @@
+module Aoc.Y2020.D23
+  ( day
+  ) where
+
+import           Data.Sequence as Seq
+
+import           Aoc.Day
+import           Aoc.Parse
+
+parser :: Parser (Seq Int)
+parser = Seq.fromList <$> many digit <* newline
+
+solver :: Seq Int -> IO ()
+solver circle = do
+  putStrLn ">> Part 1"
+  print circle
+
+day :: Day
+day = dayParse parser solver