documentclass[11pt, leqno, twoside]{article}
usepackage[french]{babel}
usepackage[T1]{fontenc}
usepackage[applemac]{inputenc}% Codage du fichier
usepackage{amsmath}
usepackage{amsfonts}
usepackage{amssymb}
usepackage{amsthm}
usepackage{mathrsfs}
usepackage{euscript}
usepackage{ulem}
usepackage{cancel}
usepackage{array}
usepackage[dvipsnames]{xcolor}
usepackage[left=2cm,right=5.5cm,top=1cm,bottom=2cm]{geometry}
usepackage{stmaryrd}
usepackage{tikz}
usepackage{fancyhdr}
usepackage{setspace}
pagestyle{fancy}
title{Cribler par une progression arithmétique}
author{David Feutrie\
smallskip
centerline{smalldateheure}\
usepackage{titletoc}
fancyhf{}
fancyhead{}

lhead[thepage]{{it David Feutrie}}
rhead[{it Cribler par une progression arithmétique}]{thepage}

fancyfoot{}

topmargin     -.3cm
textheight     22cm
textwidth      14cm
evensidemargin  1.1cm
oddsidemargin   1.1cm
parindent=4mm
numberwithin{equation}{section}
thispagestyle{empty}

% definitions GT
               countdeftemps=170
                temps=time
                countdefnminutes=171{nminutes = time}
                countdefnheure=172
                defheure{begingroup
% heure a la francaise
                   temps = time dividetemps by 60
                   nheure = temps
% l'heure, de 0 `a 23
                   nminutes = time    <br/>
                   multiplytemps by 60 <br/>
                   advancenminutes by -temps <br/>
% Les minutes, de 0 a 59.
                   ifnumnminutes<10 toks1 = {0} <br/> %
                   elsetoks1 = {}%
                   fi
                   numbernheure hthetoks1 numbernminutes<br/>
                endgroup}%


defdater{vglue-10mmrightline{(theday/themonth/theyear)}}<br/>
                defdateheure{(version theday/themonth/theyear, heure)}