diff --git a/day6.hs b/day6.hs
index 800deef..7d3be90 100644
--- a/day6.hs
+++ b/day6.hs
@@ -1,3 +1,2 @@
-import Data.List
-c s n l|nub>>=(==)$take s l=s+n|(_:l)<-l=c s(n+1)l
+c s n l|l<-take s l,[0|x<-l,y<-l,x==y]<=(0<$l)=s+n|(_:l)<-l=c s(n+1)l
 main=interact$show.((,).c 4 0<*>c 14 0)