diff --git a/38/main.ua b/38/main.ua
new file mode 100644
index 0000000..21911d4
--- /dev/null
+++ b/38/main.ua
@@ -0,0 +1,10 @@
+# project euler 38
+
+# check if pandigital 1-9
+p ← ≍+1⇡9⍆⊥₁₀
+# concatenated product
+c ← °⊥₁₀/◇⊂⇌⍚⊥₁₀×
+⍤⤙≍ 1 p c 192 [1 2 3]
+⍤⤙≍ 1 ↧⊓=₁=₉₁₈₂₇₃₆₄₅⊸p c 9 [1 2 3 4 5]
+
+/↥▽⊸≡p≡(c :) ⇡10000 ¤[1 2]