defps@headings{%
    let@oddfoot@emptylet@evenfoot@empty
    def@evenhead{thepagehfilslshapeleftmark}%
    def@oddhead{{slshaperightmark}hfilthepage}%
    let@mkbothmarkboth
    defchaptermark##1{%
        markboth {MakeUppercase{%
            ifnum c@secnumdepth >m@ne
                if@mainmatter
                    @chapapp thechapter.  %
                fi
            fi
            ##1}}{}}%
    defsectionmark##1{%
        markright {MakeUppercase{%
            ifnum c@secnumdepth >z@
                thesection.  %
            fi
        ##1}}}}