#{page}

$forall (Entity _ sugg) <- suggs
#{wikisuggCaption sugg}
$if loggedIn
Logout $else
Login
$maybe msg <- mmsg
#{msg} $if not (null sects) $with (idx, (rid, sect, kind, fmt)) <- head sects $if ((mayEdit == Authorized) && (rid /= "/new/"))
insert $forall (idx, (rid, sect, kind, fmt)) <- sects $case (sect, kind, fmt) $of (Left c, Article, Source lg ln)

#{prettify $ toClassname lg} #{c} $of (Left c, Article, _)
#{c} $of (Left c, Hint, _)
#{c} $of (Left c, _, _)
#{c} $of (Right [], _, _)
Empty table. $of (Right rows, Table, _)
$forall h <- head rows $forall c <- cols

#{h} $forall cols <- tail rows
#{c} $of (Right rows, Mapping, _)
$forall cols <- rows $forall c <- cols
#{c} $if ((mayEdit == Authorized) && (rid == "/new/"))
create $if ((mayEdit == Authorized) && (rid /= "/new/"))
$if idx > 1