diff --git a/Util.hs b/Util.hs
index 95c0524..9058b4f 100644
--- a/Util.hs
+++ b/Util.hs
@@ -11,3 +11,8 @@ splitBy f s =  case dropWhile f s of
                  [] -> []
                  s' -> w : splitBy f s''
                    where (w, s'') = break f s'
+
+
+-- |Remove a given item from a list.
+removeItem :: (Eq a) => a -> [a] -> [a]
+removeItem x = foldr (\x' y -> if x' == x then y else x':y) []