# project euler 55
c ← ⍜⊥₁₀(+⟜⇌)
p ← ≍⟜⇌⊥₁₀

⇡10000
°□⊃⊢⊣⊕□⊙⍉⊙⊟⊸≡p⊸≡c # first iteration
Iter ← ⊙(⊂□)⊃(▽¬)▽⊙⍉⊙⊂⊸≡p≡c⊸⊢⍉
◌◌⍢(+1⊙(Iter)|↧⊙(≠0⧻)<50)1
/◇⊂ ⍚≡⊣
⧻⊚¬˜∊⇡10000 # i found the non-lychrel numbers