diff --git a/p1.dyalog b/p1.dyalog
index db912ee..0a01b28 100644
--- a/p1.dyalog
+++ b/p1.dyalog
@@ -1,4 +1,3 @@
 p←⍎¨⊃⎕NGET'p1.txt'1
 +/p ⍝ part 1
-q←(⊢,⊢+(⊃⌽))⍣(⊢≢(∪⊢))+\p
-⊃q/⍨(q⍳q)≠⍳≢q ⍝ part 2
+{⍬≢z←⍵/⍨(⍵⍳⍵)≠⍳≢⍵:⊃z ⋄ ∇⍵,⍵+⊃⌽⍵}+\p ⍝ part 2