let
basename =
lower_first (
Filename
.chop_extension (
Filename
.basename filename))