diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl
index 1d45c1f..4d65229 100644
--- a/examples/rlp/QuickSort.rl
+++ b/examples/rlp/QuickSort.rl
@@ -26,15 +26,5 @@ qsort l = case l of
 list = Cons 9 (Cons 2 (Cons 3 (Cons 2
             (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))
 
-list2 = Cons 2 (Cons 3 Nil)
-
-lt :: Int# -> Int# -> Bool
-lt a = (>=# a)
-
-gte :: Int# -> Int# -> Bool
-gte a = (<# a)
-
-id x = x
-
 main = print# (qsort list)