\escapechar-1\hsize8cm\parfillskip0cm plus 1fil\font\rm cmr10\rm
\catcode`\[1\catcode`\]2\catcode`\&13\def&[\catcode`]&@11&|6&\{7&\}8&\+&\&&!&\+\let!\let&:&\!!:\def
&\{{e&\+:%|1[\uccode`\&`|1\expandafter&\csname\string|1\endcsname13\uppercase[:&]]
%*|1[\uccode`\&`|1\expandafter&\csname\string|1\endcsname13\uppercase[!&]]
*$\count*C\advance%A|1[C$|1 1]%B|1[C$|1 -1]%M|1[C$|1-]%D|1[\divide$|1 2]
*"\lccode*'$*_\relax*V\lowercase*(\csname*)\endcsname*#_*~_*G\global
*-\ifx*=\fi*/\else*,\expandafter*;\aftergroup
%?[$90 100_$91$90C$90$98B[90]%~[,\char,$$91A[91] \ifnum$90<$91*~_=~]~]
%Q[$90 100_$91$90$92$90A[92]C$90$98B[90]%~[,C,$$91$$92 D[$91]A[91]A[92] \ifnum$90<$91*~_=~]~B[98]]
%R|1S[%~[|1]%#[]-~#%~[$98$99_M[98]100]/*~R,$$99 |1A[99]=~]
%P[$90 100_$91$90C$90$98B[90]%~["$91$$91A[91] \ifnum$90<$91*~_=~]~]
\everypar[]\output[\shipout\box255]%#[Tady nic nen\accent19\char16\ \dots]$99 100
[%W[\egroup#\end]%X[\egroup\escapechar`\\#\stop]%Y[\egroup\starttext#\stoptext][-\starttext+-\@@end+-\proclaim+/;W=/;X=/;Y=]]
&\@&\&R110S74S142S110S74S190SS$99 100QQP"`\G`\G_V[,G,!,@(defg)]
R148S96S108S120S40S240S0S260S24S132S132S0S272SSM[`j]`8:+[QQ?\end]*\'_*\i_&\\&\&!\+@