<< hailstone.m; Print["The most common hailstone length is ", Commonest[Length@*hailstone /@ Range[99999]][[1]], "."];