<% [ %>

$(question[:prompt]) $(question[:type])

<% let qres=filter(!ismissing, sresults[!, qid]) if length(qres) > 0 let qresexpanded=if qres[1] isa Vector; collect(Iterators.flatten(qres)) else qres end qresfreq=sort(countmap(qresexpanded) |> collect, by=x->-x[2]) maxfreq=if isempty(qresfreq) 0 else last(first(qresfreq)) end %> <% end end end %>

<% for (qid, question) in questions(id)] |> join %>