$newline never
<table .table .table--striped .table--hover>
  <thead>
    <tr .table__row .table__row--head>
      <th .table__th>
        _{MsgExamRoomName}
      <th .table__th colspan=2>
        _{MsgExamRoomLoad}
      $maybe rule <- occMappingRule
        $case rule
          $of ExamRoomSurname
            <th .table__th>
              _{MsgExamRoomMappingSurname}
          $of ExamRoomMatriculation
            <th .table__th>
              _{MsgExamRoomMappingMatriculation}
          $of _
            <th .table__td>
      <th .table__th>
        _{MsgExamRoom}
      <th .table__th>
        _{MsgExamRoomTime}
      <th .table__th>
        _{MsgExamRoomDescription}
  <tbody>
    $forall Entity occId ExamOccurrence{ examOccurrenceName, examOccurrenceRoom, examOccurrenceStart, examOccurrenceEnd, examOccurrenceDescription, examOccurrenceCapacity } <- occurrences
      <tr .table__row>
        <td .table__td>
          _{examOccurrenceName}
        <td .table__td>
          _{loadProp (occLoad occId) examOccurrenceCapacity}
        <td .table__td>
          $maybe nudgeWgt' <- Map.lookup occId nudgeWgt
            ^{nudgeWgt'}
        <td .table__td>
          $maybe mappingWgt <- occMapping occId
            ^{mappingWgt}
        <td .table__td>
          $maybe room <- examOccurrenceRoom
            ^{roomReferenceWidget room}
          $nothing
            _{MsgExamOccurrenceRoomIsUnset}
        <td .table__td>
          ^{formatTimeRangeW SelFormatDateTime examOccurrenceStart examOccurrenceEnd}
        <td .table__td>
          $maybe desc <- examOccurrenceDescription
            #{desc}