Termes composés prolog

Bonjour,
J'ai un terme composé en prolog pr exemple l21*lkl et je veux récupérer tout ce qui est avant le symbole * (première apparence de *)
ce prédicat get(A*_,A) peut le faire, dans le cas ou j'ai plus qu'une occurence de * j'obtient tt ce qui est avt le dernier *.
Comment faire pour récupérer tt ce qui est avt le premier * uniquement?