I  ← ⊢⊚≡⌟(/↥⌕)"on "_"tog"_"off" # Instr ? String
N  ← +₁°⊟⇌\-↯2_2⊜⋕⊸∊+@0⇡10      # Take Drop ? String
P! ← /+♭∧⍜⊙(↙⊙↘)^
P₁ ← P!⨬(↥1|¬|↧0)
P₂ ← P!⨬(+₁|+₂|↥0-₁)
↯˙⊟1000 0
⊜⊃I N⊸≠@\n&fras"i/06.in"
⊃P₂P₁

~/aoc15ua/06