takeItem :: (Monad m) => Item -> CyoaT m ()
takeItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.insert item (player_carries ps) }
takeItem :: (Monad m) => Item -> CyoaT m ()
takeItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.insert item (player_carries ps) }
takeItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.insert item (player_carries ps) }