⎕IO←0
 p←⍎¨⊃⎕NGET'input'1
 m←25
 ⊢x←p⌷⍨m+⍸~(m↓p)∊¨{(,∘.<⍨⍳m)/,⍵}¨∘.+⍨¨¯1↓m,/p  ⍝ Part 1
 ⍝+/∊{{(x=+/⍵)×(⌈/+⌊/)⍵}¨⍵,/p}¨2+⍳⍴p  ⍝ Part 2
 (⌈/+⌊/)p[{(1+1⊃⍵)+⍳⊃-/⍵}⊃⍸x=∘.-⍨+\p]  ⍝ Part 2 (faster)