Require Export realbasis. Fixpoint force (n:nat)(s:stream idigit) {struct n}: idigit := match n, s with 0%nat,(d::s') => d | (S p),(_::s') => force p s' end. Time Eval compute in (bounds 350 number_e_minus2). (* Definition the_val := (force 4000 (number_e_minus2 (* * number_e_minus2 *))).*) (* Extraction "the_val.ml" the_val. *)