diff --git a/07/part2.pl b/07/part2.pl
index c3fc62a..c444678 100644
--- a/07/part2.pl
+++ b/07/part2.pl
@@ -29,7 +29,7 @@ type(Hand, 2) :- count_hand(Hand, 2, 4).
 type(Hand, 1) :- count_hand(Hand, 1, _).
 
 count_hand(Hand, NMaxCard, NUniqueCards) :-
-    convlist([X, X]>>(X =\= 1), Hand, NoJokerHand),
+    exclude(=:=(1), Hand, NoJokerHand),
     maplist(count(NoJokerHand), NoJokerHand, Counts),
     max_member(MaxCountNoJoker, Counts),
     count(Hand, 1, NJokers),