tweak to day3

aoc2023/Prelude.newt

@@ -114,7 +114,7 @@ _>>=_ : {0 m} {{Monad m}} {0 a b} -> (m a) -> (a -> m b) -> m b
 ma >>= amb = bind ma amb
 
 _>>_ :  {0 m} {{Monad m}} {0 a b} -> m a -> m b -> m b
-ma >> mb = mb
+ma >> mb = ma >>= (\ _ => mb)
 
 join : ∀ m. {{Monad m}} {0 a} → m (m a) → m a
 join mma = mma >>= id
@@ -622,3 +622,8 @@ isNothing _ = False
 instance Bifunctor _×_ where
   bimap f g (a,b) = (f a, g b)
 
+instance Functor IO where
+  map f a = bind a $ \ a => pure (f a)
+
+uncurry : ∀ a b c. (a -> b -> c) -> (a × b) -> c
+uncurry f (a,b) = f a b