documentclass{memoir}
    usepackage{color,calc,graphicx,soul,fourier}
    definecolor{nicered}{rgb}{.647,.129,.149}
    makeatletter
    newlengthdlf@normtxtw
    setlengthdlf@normtxtw{textwidth}
    defmyhelvetfont{defsfdefault{mdput}}
    newsavebox{feline@chapter}
    newcommandfeline@chapter@marker[1][4cm]{%
      sboxfeline@chapter{%
        resizebox{!}{#1}{fboxsep=1pt%
          colorbox{nicered}{color{white}bfseriessffamilythechapter}%
        }}%
      rotatebox{90}{%
        resizebox{%
          heightof{usebox{feline@chapter}}+depthof{usebox{feline@chapter}}}%
        {!}{scshapeso@chapapp}}quad%
      raisebox{depthof{usebox{feline@chapter}}}{usebox{feline@chapter}}%
    }
    newcommandfeline@chm[1][4cm]{%
      sboxfeline@chapter{feline@chapter@marker[#1]}%
      makebox[0pt][l]{% aka rlap
        makebox[1cm][r]{useboxfeline@chapter}%
      }}
    makechapterstyle{daleif1}{
      renewcommandchapnamefont{normalfontLargescshaperaggedleftso}
      renewcommandchaptitlefont{normalfonthugebfseriesscshapecolor{nicered}}
      renewcommandchapternamenum{}
      renewcommandprintchaptername{}
      renewcommandprintchapternum{nullhfillfeline@chm[2.5cm]par}
      renewcommandafterchapternum{parvskipmidchapskip}
      renewcommandprintchaptertitle[1]{chaptitlefontraggedleft ##1par}
    }
    makeatother
    chapterstyle{daleif1}