let is_next_string_stream stream = 
  match peek_stream stream with
    Istring _ -> true
  | _ -> false