Mathematica 10.1.0 for Linux x86 (64-bit)
Copyright 1988-2015 Wolfram Research, Inc.
In[1]:= MapAt[Print[RandomInteger@0+1];#+1&,#0,{1,1,1,1,1,1}]&[]
1
Out[1]= MapAt[Print[RandomInteger[(#1 + 1 & )[0]] + 1]; #1 + 1 & , #0,
> {1, 1, 1, 1, 1, 1}] &
In[2]:= %[]
2
Out[2]= MapAt[Print[RandomInteger[(#1 + 1 & )[(#1 + 1 & )[0]]] + 1]; #1 + 1 & ,
> #0, {1, 1, 1, 1, 1, 1}] &
In[3]:= %[]
3
Out[3]= MapAt[Print[RandomInteger[(#1 + 1 & )[(#1 + 1 & )[(#1 + 1 & )[0]]]] +
> 1]; #1 + 1 & , #0, {1, 1, 1, 1, 1, 1}] &