Somewhat simplify RoomPos types

src/Dodge/Room/Tutorial.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Pillar
 import Dodge.Item.Held.Utility
 import Control.Monad
 import qualified Data.IntMap.Strict as IM
@@ -43,6 +44,8 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
+        , tToBTree "x" . return . cleatOnward <$> roomPillarsSquare
+        , corDoor
         , tutHub
         , tutLight
         , tutDrop