p   =:  1 4 _100 400&(7 | [: <. +/ @: %~)"1 0
   ily =:  (4=p) +. 3=p@:<:
   ply =:  (#~ ily)@:([ + 1+i.@:-~)