1  &fras ⊣ &args
 2  
 3  ⊜∘≠@\n.
 4  
 5  FoldScan! ← ↘1⇌∧(⊂^0⊙⊸⊢)⊙¤
 6  
 7  Rounded ← -=@O⟜(+⇌∩(FoldScan!(×≠@#⟜(+=@O)) ⟜(↯⊙0△⊢))⊸⇌)
 8  Steps   ← -1\(×⊸+)≠@#
 9  Slide   ← ⨬(@.|@O|@#)+=@#⟜(>⊃Steps Rounded)
10  Cycle   ← ⍥(⍉⇌Slide)4
11  Load    ← /+♭×=@O⇌⟜(+1⇡⧻)
12  
13  B ← ⍥Cycle ⍜-(◿:)⊙1000000000 ⟜-⊃get⋅⧻ ⍢(Cycle⟜insert⊙⊸⧻|¬has) :map.[].
14  
15  ∩Load ⊃B Slide