alias!

alias b => ash item t=$item[%%];string v=$item[myr];int u=length(t);for i from 0 to u{for j from i to u{string y=to_lower_case(t).substring(i,j);int b=0;foreach i in$items[]if(i!=t&to_lower_case(i).index_of(y)>-1)b+=1;if(b<1&length(y)<length(v))v=y;}}print(v);