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