w:("one";"two";"three";"four";"five";"six";"seven";"eight";"nine")
f:+/{x:{(x<58)&x>47}#x;.(*x;*|x)}'
f@i:0:"i/1"
f@{x{(n;w):y;(w,n,w)/w\x}/($1+!9),','w}'i