\def\cellscale{0.78}
\def\nbpdfInput#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}}
\def\nbpdfEcho#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}}
\def\nbpdfOutput#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}}
\def\nbpdfSubsection#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}}

\noindent\nbpdfInput{Snips/1.pdf}

\noindent\nbpdfInput{Snips/2.pdf}

\noindent\nbpdfInput{Snips/3.pdf}

\noindent\nbpdfInput{Snips/4.pdf}

\noindent\nbpdfInput{Snips/5.pdf}

\noindent\nbpdfInput{Snips/6.pdf}

\noindent\nbpdfInput{Snips/7.pdf}

\noindent\nbpdfInput{Snips/8.pdf}

\parpic[r]{\scalebox{1}{\input{R3.pdftex_t}}}
{\red\bf Proof of Reidemeister 3.}
{\def\nbpdfOutput#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}\hfill\text{$\Box$\quad}}

\noindent\nbpdfInput{Snips/9.pdf}

\noindent\nbpdfOutput{Snips/10.pdf}

}

{\red\bf The ``First Tangle''.}

\noindent\nbpdfInput{Snips/11.pdf}

\noindent\nbpdfOutput{Snips/12.pdf}

\vskip -3mm
\parpic[r]{\scalebox{1}{\input{FirstTangle.pdftex_t}}}

\noindent\nbpdfInput{Snips/13.pdf}

\noindent\nbpdfOutput{Snips/14.pdf}

\parpic[r]{\scalebox{0.8}{\input{817.pdftex_t}}}
{\red\bf The knot $8_{17}$.}

\noindent\nbpdfInput{Snips/15.pdf}

\noindent\nbpdfOutput{Snips/16.pdf}

{\red\bf Proof of Theorem 3, (3).}
{\def\nbpdfOutput#1{\vskip 1mm\par\noindent\includegraphics[scale=\cellscale]{#1}\hfill\text{$\Box$\quad}}

\noindent\nbpdfInput{Snips/17.pdf}

\noindent\nbpdfOutput{Snips/18.pdf}

}