%% AMS-LaTeX Created by Wolfram Mathematica 8.0 : www.wolfram.com

\documentclass{article}
\usepackage{amsmath, amssymb, graphics, setspace}

\newcommand{\mathsym}[1]{{}}
\newcommand{\unicode}[1]{{}}

\newcounter{mathematicapage}
\begin{document}

\begin{doublespace}
\noindent\(\pmb{f[\text{x0$\_$}]\text{:=}}\\
\pmb{\text{Module}[\{x=\text{x0}\},}\\
\pmb{\text{While}[x>0,x=\text{Log}[x]];}\\
\pmb{x}\\
\pmb{]}\)
\end{doublespace}

\begin{doublespace}
\noindent\(\pmb{\text{fib}[\text{n$\_$}]\text{:=}}\\
\pmb{\text{Module}[\{f\},}\\
\pmb{f[1]=f[2]=1;}\\
\pmb{f[\text{i$\_$}]\text{:=}f[i]=f[i-1]+f[i-2];}\\
\pmb{f[n]}\\
\pmb{]}\)
\end{doublespace}

\begin{doublespace}
\noindent\(\pmb{\gcd [\text{m0$\_$},\text{n0$\_$}]\text{:=}}\\
\pmb{\text{Module}[\{m=\text{Abs}[\text{m0}],n=\text{Abs}[\text{n0}]\},}\\
\pmb{\text{While}[n\neq 0,\{m,n\}=\{n,\text{Mod}[m,n]\}];}\\
\pmb{m}\\
\pmb{]}\)
\end{doublespace}

\begin{doublespace}
\noindent\(\pmb{f[5.0]}\\
\pmb{\text{fib}[30]}\\
\pmb{\text{cd}[1500, -720]}\)
\end{doublespace}

\begin{doublespace}
\noindent\(\(-0.742579\)\)
\end{doublespace}

\begin{doublespace}
\noindent\(\(832040\)\)
\end{doublespace}

\begin{doublespace}
\noindent\(\(-60\)\)
\end{doublespace}

\end{document}
