%% u/zycie: \infram <gr.ramki> <odl.od ramki> {tre/s/c (materia/l pionowy)}
%% usage:   \infram <thickness> <distance> {contents (vertical stuff)}
\newdimen\frth \newdimen\frdi
\long\def\infram{\vbox\bgroup \afterassignment\inframa \frth = }
\def\inframa{\afterassignment\inframb \frdi = }
\long\def\inframb#1{\hrule height\frth
               \hbox{\vrule width\frth
                     \kern\frdi \vbox{\kern\frdi#1\kern\frdi}\kern\frdi
                     \vrule width\frth}
                     \hrule height\frth\egroup}
\endinput
