diff --git a/d2golf.hs b/d2golf.hs
index 3d0d21d..2f4927a 100644
--- a/d2golf.hs
+++ b/d2golf.hs
@@ -3,5 +3,4 @@ q(h:f:_)[d:_,n]|'f'==d=[h,f+r n]|let=[d%h$r n,f]
 p[h,f,a][d:_,n]|'f'==d=[h+r n,f+r n*a,a]|let=[h,f,d%a$r n]
 (%)'u'=(-)
 (%)_=(+)
-m=map
-main=interact$show.m(\(a:b:_)->a*b).(`m`[p,q]).flip(`foldl`[0,0,0]).m words.lines
\ No newline at end of file
+main=interact$show.map(\(a:b:_)->a*b).(<$>[p,q]).flip(`foldl`[0,0,0]).map words.lines
\ No newline at end of file