diff --git a/Proj2.hs b/Proj2.hs
index 2292d26..cac7a3a 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -27,8 +27,10 @@ toPitch _ = Just (Pitch 'A' 1)
 feedback :: [Pitch] -> [Pitch] -> (Int, Int, Int)
 feedback _ _ = (0, 0, 0)
 
+-- implement me
 initialGuess :: ([Pitch], GameState)
-initialGuess = ([Pitch 'A' 1], ())
+initialGuess = ([], [[]])
 
+-- implement me
 nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState)
-nextGuess _ _ = ([Pitch 'A' 1], ())
+nextGuess _ _ = ([], [[]])