diff --git a/sml/week3/list.sml b/sml/week3/list.sml
index d13eb34..6d24a75 100644
--- a/sml/week3/list.sml
+++ b/sml/week3/list.sml
@@ -27,5 +27,4 @@ fun empty lst = lst = []
 fun exists elem lst =
      lst 
      |> filter (fn needle => elem = needle) 
-     |> empty 
-     |> not
\ No newline at end of file
+     |> not o empty
\ No newline at end of file