let
remove_extension x =
try
chop_extension x
with
Invalid_argument
_
->
x