Beregning af antal frugtpresninger:

Do[If[(0.75^n)<0.25,Return[n]],{n,∞}]

Resultatet er 5 frugtpresninger