Ia~q:q,{:[s]q.._-(v:(!!+*.[_ v]{{X}@@A=}/\[q 2/._>{;_ v}{}Fi]{{Y}@@A=}/+A._!v!+{{Z}q*}{s v*{Z}+}Fi+P,}/