Continue to refactor item datatypes, add a shape to rockets

src/Padding.hs

@@ -15,6 +15,10 @@ leftPad :: Int -> a -> [a] -> [a]
 {-# INLINE leftPad #-}
 leftPad i x xs = reverse $ take i $ reverse (take i xs) ++ repeat x
 
+--fourCharInt :: Int -> String
+--fourCharInt x
+--    | x < 10000 = leftPad 4 ' ' $ show x
+
 rightPad :: Int -> a -> [a] -> [a]
 {-# INLINE rightPad #-}
 rightPad i x xs = take i $ xs ++ repeat x