2π2 . b_while ( (2π1,(+.(id.2π1.2π2,1)o,(+.(!.(id.2π2.2π2.2π1,2π2)o,!.(id.2π1.2π1.2π1,mod.(+.(2π2,id.2π1.2π2.2π1)o,2π2.2π1.2π1)o)o)o)*.distl.(id,iota.2π2.2π1)o)o.id.id)o , < . (id.2π1.2π2,2π2.2π1)o ) . (id,(1,id.2π1)o)o . id . id . id . (id,#.id)o . id