let all := ["A", "B", "C", "D"];
let maxi := cnt(select TN);
let result := for k in all do
        cnt(for i in select TN do
                if chosen(i.Verweisberatung, k) then
                    1
                end
            end)
    end;
let css := "<style>
.grid-container {
    display:grid;
    grid-template-columns:15px auto 30px;
    grid-gap:1px;
    border:thin solid white;
    border-radius:.5em;
    padding:.3em;
}
.gridProgress{
    font-size:large;
    text-align:center;
}
.gridNumbers, .gridFooter{
    font-size:large;
    color:white;
}
.gridFooter {
    grid-column: 1 / -1;
    text-align:center;
}
progress{
    width:90%;
}
</style>
";
let content := "
<aside class = 'grid-container'>" +
    for i in range(0, cnt(all)) do
        "<aside class = 'gridNumbers'>" + item(all, i) +
        "</aside>
<aside class = 'gridProgress'><progress  max=" +
        maxi +
        " value=" +
        item(result, i) +
        "></progress></aside>
<aside class = 'gridNumbers'>" +
        item(result, i) +
        "</aside>"
    end +
    "
<aside class = 'gridFooter'>&#8721; " +
    sum(result) +
    "</aside>
</aside>
";
html(css + content)