let is_next_list_stream stream = 
  match peek_stream stream with
    Ilist _ -> true
  | _ -> false