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