let pop_stream stream = 
  match stream.ist_dat with
    [] -> Isingle (exp_constant_zero ~loc:stream.ist_loc)
  | hd::tl -> stream.ist_dat <- tl; hd