let
remove_extensions x =
try
chop_extensions x
with
Invalid_argument
_
->
x