diff --git a/day6.hs b/day6.hs
index 7d3be90..ee688b0 100644
--- a/day6.hs
+++ b/day6.hs
@@ -1,2 +1,2 @@
-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)
+main=interact$show.(<$>[4,14]).(%)
+l%s|l<-take s l,sum[1|x<-l,y<-l,x==y]==s=s|(_:l)<-l=1+l%s