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