diff --git a/d5golf2.hs b/d5golf2.hs
index 79854ed..2a3ac7b 100644
--- a/d5golf2.hs
+++ b/d5golf2.hs
@@ -1,7 +1,7 @@
 import Data.List
-m=map;l=length;f=filter
-v[a,b]=or$zipWith(==)a b
-x?y|x>y=x-1|x<y=x+1|let=x
+x?y=x+signum(y-x)
+v i[a,b]=i$w(==)a b
+m=map;l=length;f=filter;w=zipWith
 z a|(x,_:y)<-break(<'.')a=m read[x,y]
-n[f@[x,y],d@[a,b]]|x==a,y==b=[f]|let=f:n[[x?a,y?b],d]
-main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f v x]).m(m z.f(>".").words).lines
\ No newline at end of file
+n[f,d]|v and[f,d]=[f]|let=f:n[w(?)f d,d]
+main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f(v or)x]).m(m z.f(>".").words).lines
\ No newline at end of file