diff --git a/extra/project-euler/186/186.factor b/extra/project-euler/186/186.factor
index ce2b17a610..ac846f6064 100644
--- a/extra/project-euler/186/186.factor
+++ b/extra/project-euler/186/186.factor
@@ -29,7 +29,10 @@ IN: project-euler.186
         drop nip
     ] if ;
 
+: <relation> ( n -- unionfind )
+    <disjoint-set> [ [ add-atom ] curry each ] keep ;
+
 : euler186 ( -- n )
-    <generator> 0 1000000 <disjoint-set> (p186) ;
+    <generator> 0 1000000 <relation> (p186) ;
 
 MAIN: euler186