diff --git a/73 b/73
new file mode 100755
index 0000000..baea050
Binary files /dev/null and b/73 differ
diff --git a/73.hi b/73.hi
new file mode 100644
index 0000000..f463931
Binary files /dev/null and b/73.hi differ
diff --git a/73.hs b/73.hs
new file mode 100644
index 0000000..e740d0c
--- /dev/null
+++ b/73.hs
@@ -0,0 +1,10 @@
+import Data.Ratio
+
+numOfFrac bound = sum $ map (\d -> let nLower = ceiling (d % 3)
+                                       nUpper = floor   (d % 2) 
+                                   in length [n | n <- [nLower..nUpper], 
+                                                  let ratio = (n % d), ratio > (1 % 3), ratio < (1 % 2), 
+                                                  denominator ratio == d])
+                        [2..bound]
+
+main = print $ numOfFrac 12000
diff --git a/73.o b/73.o
new file mode 100644
index 0000000..d928752
Binary files /dev/null and b/73.o differ