diff --git a/60/main.ua b/60/main.ua
new file mode 100644
index 0000000..2620ad5
--- /dev/null
+++ b/60/main.ua
@@ -0,0 +1,15 @@
+# project euler 60
+# ? n
+IsPrime ← memo(=1⧻°/×)
+# [all pair-concatenations of [n]] ? [n]
+Pairs ← ≡(⍜°⋕/◇⊂) ⧅≠2
+# [all primes 1 through n] ? n
+Primes ← +1⊚≡IsPrime+1⇡
+# do numbers [n] form all prime Pairs?
+# bool ? [n]
+Check ← /↧≡IsPrime Pairs
+
+⍤⤙≍ 1 Check [3 7 109 673]
+
+⧅<4 Primes 1000
+▽⊸≡Check