/ http://www.nsl.com/k/nth.k

nth g i n is *n f loop,,i where f x is [dvl(?,/g@*x)(,/x);*x]
n4 x is ,/+:'+[1!x;-1!x;1!'x;-1!'x]
nth(n4(10 10#!100))45(4)