====== Staročeši ======

Texty pro Lehečku:

  * výroba csts z vertikály:<code>perl -pe 's/(<(odstavec|podnadpis)>)/$1\n<s>/' < STB_Ukazka.txt |\
perl -pe 's:<s />:<s>:' | csts.sh > STB_Ukazka.csts</code>
  * výroba vertikály z csts:<code>perl -pe 's/<MM[lt].*//' STB_Ukazka |\
perl -pe 's/<MDl src="m">/\t/' | perl -pe 's/<MDt src="m">/ /' |\
perl -pe 's/<[fd]>//' | perl -pe 's:<s>:<s />:' |\
perl -pe 'undef $/; s:(<(podnadpis|odstavec)>)\n<s />:$1:g' |\
perl -pe 'undef $/; s:</?csts>\n::g'</code>