Bad or Incorrect Monad example?

bad-monad

module Main where

main = do let p = Position 0
          print (treasureMap p == treasureMap2 p)

data Position t = Position t deriving (Show, Eq)

stagger (Position d) = Position (d + 2)

crawl (Position d) = Position (d + 1)

rtn x = x

x >>== f = f x

treasureMap pos = pos >>==
                  stagger >>==
                  stagger >>==
                  crawl >>==
                  rtn
                      
treasureMap2  = crawl . stagger . stagger