( ! . (2π2.2π1,2π2)o )* . distl . (id,iota.+.(#.id.2π1.2π1.2π1.2π1.2π1,#.id.2π2.2π1.2π1.2π1.2π1)o)o . id . id . (id,id.2π2.2π2.(id,2π2.b_while((2π1,(⁄.(id.2π1.2π2,2)o,(b_if(=.(⁄.(mod.(2π2,×.(id.2π1.2π2.2π1,2)o)o,id.2π1.2π2.2π1)o,0)o,b_if(<.(id.2π1.2π2,id.2π2.2π2)o,id.2π1.2π2,id.2π2.2π2).(id,(!.(id.2π2.2π2.2π1,2π2)o,!.(id.2π2.2π2.2π1,+.(2π2,id.2π1.2π2.2π1)o)o)o)o,b_if(>.(id.2π1.2π2,id.2π2.2π2)o,id.2π1.2π2,id.2π2.2π2).(id,(!.(id.2π2.2π2.2π1,-.(2π2,id.2π1.2π2.2π1)o)o,!.(id.2π2.2π2.2π1,2π2)o)o)o))*.distl.(id,iota.#.id.2π2.2π2)o)o.id.id)o,>.(id.2π1.2π2,0)o).(id,(#.2π2.2π1,++.(2π2.2π1,(!.(2π2.2π1,-.(#.2π2.2π1,+.(2π2,1)o)o)o)*.distl.(id,iota.#.2π2)o.id.id.(id,2π2)o)o)o)o)o)o . id . id . id . id . id . id . (id,++.(id.2π1.2π2,(2000000000)*.distl.(id,iota.-.(id.2π2.2π2,#.id.2π1.2π2)o)o)o.id.id.(id,(id.2π2.2π1.2π1,2π2.2π1)o)o)o . (id,++.(id.2π1.2π2,(2000000000)*.distl.(id,iota.-.(id.2π2.2π2,#.id.2π1.2π2)o)o)o.id.id.(id,(id.2π1.2π1,2π2)o)o)o . (id,2π2.b_while((2π1,×.(2,2π2)o)o,~.>.(2π2,2π2.2π1)o).(id,1)o.id.id.id.(id,b_if(>.(id.2π1.2π2,id.2π2.2π2)o,id.2π1.2π2,id.2π2.2π2).(id,(#.id.2π1,#.id.2π2)o)o)o)o . id . id . id . id . id