diff --git a/p5foldr.dyalog b/p5foldr.dyalog
new file mode 100644
index 0000000..4a8c5ca
--- /dev/null
+++ b/p5foldr.dyalog
@@ -0,0 +1,4 @@
+p←⎕UCS⊃⊃⎕NGET'p5.txt'1
+f←{⊃{32=|⍺-⊃⌽⍵:¯1↓⍵⋄⍵,⍺}/⍵,⊂⍬}
+≢q←f p ⍝ part 1
+⌊/{≢f q~⍵,32+⍵}¨⎕UCS ⎕A ⍝ part 2