diff --git a/71 b/71
new file mode 100755
index 0000000..96386c6
Binary files /dev/null and b/71 differ
diff --git a/71.hi b/71.hi
new file mode 100644
index 0000000..6fa656e
Binary files /dev/null and b/71.hi differ
diff --git a/71.hs b/71.hs
new file mode 100644
index 0000000..e1df03b
--- /dev/null
+++ b/71.hs
@@ -0,0 +1,9 @@
+import Data.Ratio
+
+closer :: Rational -> Rational -> Rational
+closer curr prev = let goal = (3 % 7) in if curr < goal && (goal - curr) < (goal - prev) then curr else prev
+
+closest :: Integer -> Rational
+closest bound = foldr closer 0 $ map (\d -> let n = floor (d * 3 % 7) in (n % d)) [8..bound]
+
+main = print $ closest 1000000
diff --git a/71.o b/71.o
new file mode 100644
index 0000000..12d20bb
Binary files /dev/null and b/71.o differ