# project euler 70
Φ ← ⁅×/×-⊸÷⊙1◴⊸°/× # from uiua discord by maweo
p ← ≍∩(⍆°⋕)⊸Φ
b ← =⊸/↧≡(÷⊸Φ)
s ← ▽⊸(↧b⟜≡p)
σ ← ▽⊸(=⊸(/↧)≡/÷) ▽⊙(⍉⊟)≡(◡(≍∩(⍆°⋕))⊸Φ)
σ⍜-₂⇡1e7