let rec stars_term = function
  | TLval (TVar lvar,off ) 
  | Tat ({term_node =
             TLval (TVar lvar,off )}, _ )  -> 
      Some(lvar,(Cil.typeOfTermLval(TVar lvar,off ) ),0)
  | TLval (TMem t,_ ) 
  | Tat  ({term_node =
              TLval (TMem t,_)}, _ ) -> 
      (match stars_term t.term_node with 
         | None -> None 
         | Some (x,ty,n) -> Some (x,ty,n+1))
   | _ -> None