plot(1:40, tabulate(rgeom(1000,0.1),40))