\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{sperren}[1999/06/17
   v0.2 (c) IKS Garamond -- Lutz Donnerhacke]

\def\@@dosperren#1{%
  \ifx#1\end\else%
    \hskip 0pt plus 20pt minus 10pt%
    \uppercase{#1}%
    \expandafter\@@dosperren%
  \fi}

\def\@dosperren#1{%
  \ifx#1\end\else%
    \uppercase{#1}%
    \expandafter\@@dosperren%
  \fi}

\newcommand{\sperren}[2][1.5]{%
  \edef\@temptokena{#2}%
  \edef\q{\expandafter\@dosperren\@temptokena\end}%
  \setbox\@tempboxa=\hbox{\q}%
  \@tempdima=#1\wd\@tempboxa%
  \makebox{\hbox to \@tempdima {\q}}%  
}