let
    nl = "#(cr)#(lf)",
    code = nl&"```"&nl,
    doc = Value.Metadata(Value.Type(SqlExpression.SchemaFrom)),
    combine = {"# " & doc[Documentation.Name]
        , doc[Documentation.Description]
        , "# Descrition "
        , doc[Documentation.LongDescription]
        , "# Category "
        , doc[Documentation.Category]
        , if List.Count(doc[Documentation.Examples])>0 then "# Examples " else ""
        ,Lines.ToText(
                List.Transform(doc[Documentation.Examples],
                        each    "> "&_[Description]&code
                                    &_[Code]&code
                               &"> "&_[Result])
                , nl&"***"&nl)
    },
    out = Lines.ToText(combine, nl)
in
    out