main=interact f f(a:x)=unlines[a:": "++show i|(i,c)<-zip[1..]x,a==c]++f x f x=x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page