let rec collect_sepstars loc n (t:term) (sep_terms:term list) =
    let sep_terms = t :: sep_terms in
    if n=1 then sep_terms else
      let tstar = deref loc t in
      collect_sepstars loc (pred n) tstar sep_terms