\documentclass{article}
\usepackage{ifthen}
\def\BUG{Ai!}
\def\qualche{1}
\newboolean{Margine}
\setboolean{Margine}{true}
\newcounter{uno}\setcounter{uno}{1}
\newcommand{\forloop}[5][1]% 
{% 
  \setcounter{#2}{#3}%
  \ifthenelse{#4}{#5\addtocounter{#2}{#1}\forloop[#1]{#2}{\value{#2}}{#4}{#5}}{} 
}
\begin{document}
\ifthenelse{\isodd{\thepage}}{Adesso}{Dopo}
\def\Test-#174{#1}
\count3=-27
\count4=21
\expandafter\Test\number\count3 4\\
\number\count3\\
\number\count4\\
\newcounter{ct} \forloop{ct}{1}{\value{ct} < 5} { \arabic{ct} }\\
\rotatebox{30}{Ciaat}
\end{document}
