i:(*'{x+-\2#,(~=/x)*-/'>'+x}\2 2#,/.'"->"\)'0:"i/5" f:+//1<(^=999){x[*y;*|y]+:1;x}/,/ f@i@&(|/=/2#)'i f@i