diff --git a/43/main.ua b/43/main.ua
new file mode 100644
index 0000000..74deb56
--- /dev/null
+++ b/43/main.ua
@@ -0,0 +1,8 @@
+# project euler 43
+p ← [2 3 5 7 11 13 17]
+# joins digits in 3-window and checks for divisibility with p
+# digit_array ? bool
+s ← =0/↥ ◿p ⋕⧈₃(/⊂≡°⋕) ↘1
+⧅≠∞ ⇡10     # all pandigital permutations
+▽⊸≡s        # keep all that satisfy prime divisibility
+/+⋕≡(/⊂≡°⋕) # collect digits, sum