(>>=) :: Monad m => m a -> (a -> m b) -> m b
Killed bugs in flip_dir, also Haskell is awesome