Correct room link position numbering

src/Padding.hs

@@ -2,6 +2,7 @@
 module Padding
     ( leftPad
     , rightPad
+    , rightPadNoSquash
     , midPad
     , midPadL
     , rotU
@@ -18,6 +19,10 @@ rightPad :: Int -> a -> [a] -> [a]
 {-# INLINE rightPad #-}
 rightPad i x xs = take i $ xs ++ repeat x
 
+rightPadNoSquash :: Int -> a -> [a] -> [a]
+{-# INLINE rightPadNoSquash #-}
+rightPadNoSquash i x xs = take (max i $ length xs) $ xs ++ repeat x
+
 midPad :: Int -> a -> [a] -> [a] -> [a]
 {-# INLINE midPad #-}
 midPad i x xs ys = xs ++ replicate j x ++ ys