Mathematica, Random Walk, first passage, mean, Take.
Right-click 'Download' and select 'Save Link As' if the file opens in a new tab.
