lib: string:
with lib; let
  chars = let
    lc = strings.splitString "" string;
  in (lists.sublist 1 (lists.length lc - 2) lc);
in (
  strings.concatStringsSep "" (
    (lists.singleton (strings.toUpper (lists.elemAt chars 0)))
    ++ (lists.sublist 1 (lists.length chars) chars)
  )
)