Uma ferramenta inteira

adopt Arcane.Cli as Cli
adopt Arcane.Color as Cor
adopt Arcane.IO as IO
adopt Arcane.OS as OS
adopt Arcane.Serialization as Ser

// ── o que o comando aceita ─────────────────────────────────
action montar():
    cmd := Cli.comando("contar", "Conta linhas por extensão", "1.0.0")
    cmd.posicional("pasta", "a pasta a varrer")
    cmd.opcao("formato", "texto", "f", "tabela", "tabela ou json", no,
              ["tabela", "json"])
    cmd.opcao("minimo", "inteiro", "m", 0, "esconde extensões abaixo disto")
    cmd.exemplo("contar src --formato=json", "para outro programa ler")
    yield cmd

// ── o trabalho, sem saber que existe terminal ──────────────
action contar(pasta):
    por_extensao := {}
    cycle nome in IO.list_dir(pasta):
        caminho := $"{pasta}/{nome}"
        given not IO.file_exists(caminho):
            skip
        ponto := caminho.split(".")
        ext := ponto[len(ponto) - 1] given len(ponto) > 1 otherwise "(sem)"
        linhas := len(IO.read(caminho).split("\n"))
        por_extensao[ext] := (por_extensao[ext] ?? 0) + linhas
    yield por_extensao

// ── o desenho, que é a única parte que sabe ────────────────
action desenhar(dados, formato, minimo):
    filtrado := {}
    cycle ext in keys(dados):
        given dados[ext] >= minimo:
            filtrado[ext] := dados[ext]
    given formato is "json":
        yield Ser.to_json(filtrado)
    linhas := [["extensão", "linhas"]]
    cycle ext in sorted(keys(filtrado)):
        linhas.append([ext, str(filtrado[ext])])
    yield Cor.table(linhas)

// ── juntar ─────────────────────────────────────────────────
pasta := $"{OS.temp_dir()}/df-contar-{randint(100000, 999999)}"
IO.mkdir(pasta)
defer:
    IO.remove_tree(pasta)
IO.write($"{pasta}/a.df", "out 1\nout 2\n")
IO.write($"{pasta}/b.df", "out 3\n")
IO.write($"{pasta}/leiame.md", "# título\n")

args := montar().ler([pasta, "--formato=json"])
dados := contar(args["pasta"])
assert dados["df"] is 5 and dados["md"] is 2
out desenhar(dados, args["formato"], args["minimo"])

// e em tabela
out desenhar(dados, "tabela", 0)