diff --git a/Setup.hs b/Setup.hs
deleted file mode 100644
--- a/Setup.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-import Distribution.Simple
-main = defaultMain
diff --git a/Util/List.hs b/Util/List.hs
--- a/Util/List.hs
+++ b/Util/List.hs
@@ -2,8 +2,11 @@
 
 module Util.List where
 
+import Control.Applicative
 import Data.Bool
 import Data.List.NonEmpty (NonEmpty (..))
+import Numeric.Natural
+import Util
 
 splitWhen :: (a -> Bool) -> [a] -> NonEmpty [a]
 splitWhen p = go
@@ -11,3 +14,9 @@
     go = \ case
         [] -> []:|[]
         a:(go -> as:|ass) | p a -> []:|as:ass | True -> (a:as):|ass
+
+padLeft :: Natural -> a -> [a] -> [a]
+padLeft n a as = dropLengthOf as (replicate n a) <|> as
+  where dropLengthOf [] as = as
+        dropLengthOf _  [] = []
+        dropLengthOf (_:bs) (_:as) = dropLengthOf bs as
diff --git a/util.cabal b/util.cabal
--- a/util.cabal
+++ b/util.cabal
@@ -1,5 +1,5 @@
 name:                util
-version:             0.1.12.0
+version:             0.1.13.0
 synopsis:            Utilities
 -- description:         
 license:             BSD3
@@ -27,4 +27,4 @@
                      , DeriveFunctor
                      , DeriveFoldable
                      , DeriveTraversable
-  ghc-options:         -Wall
+  ghc-options:         -Wall -Wno-name-shadowing