1 files changed, 5 insertions, 0 deletions

diff --git a/H37.hs b/H37.hs
new file mode 100644
index 0000000..d5c07f5
--- /dev/null
+++ b/H37.hs
@@ -0,0 +1,5 @@
+import H36
+
+toitient :: Integer -> Integer
+toitient n = foldr (\(y,_) x -> x * (y-1) `div` y) n (primeFactorsMult n)
+