function X = mystere( p )
k=1;
while (rand(1)>p)
    k=k+1;
end
X=k;
end

