diff --git a/40/main.ua b/40/main.ua
new file mode 100644
index 0000000..639bda8
--- /dev/null
+++ b/40/main.ua
@@ -0,0 +1,5 @@
+# project euler 40
++1⇡1000000 # take some numbers
+/◇⊂°⋕      # join digits pervasively (fast)
+ₑ₁₀⇡7      # powers of 10
+/×≡⋕⊏-1    # grab digits, multiply