$newline never
^{formWidget} $maybe (courses, intersections) <- intersectionsRes
$forall (l, Entity lCid Course{courseTerm, courseSchool, courseShorthand}) <- lIxed courses
$forall Entity _ Course{courseTerm, courseSchool, courseShorthand} <- courses #{courseTerm}-#{courseSchool}-#{courseShorthand}
#{courseTerm}-#{courseSchool}-#{courseShorthand} $forall (u, Entity uCid _) <- lIxed courses $if l > u $else $with n <- symmIntersection intersections lCid uCid $if showNumber n lCid uCid #{n}