$strict()
$require(fin,fout)

$define(get_name,a_text=$index^(1,$split(:,$a_text())))
$define(make_toc,a_item=* [$a_item()](#$a_item()))

$define=(
    make_header,
    a_chunk=
    $let(
        t_line,
        $indexl(1, $a_chunk())
    )
    $let(macro_name,$index(1,$split^(:,$t_line())))
    ### $macro_name()
)

$define=(markify,
    a_man=
    $sep($until(>>,$a_man()))
    >>
    $after(>>,$a_man())
)

$static(function_names,$grepf(Macro Name.*,macro.man))
$dump(macro_indices.md)
$relay(file,macro_indices.md)
# TOC
$forline=(
    $make_toc($get_name($:())),
    $function_names()
)

# Macros

$forby($make_header($:^())$nl()$markify($:()),----,$include*(macro.man,true))
$halt()