FILE MANIPULATIONS

Series[ (1-Sin[a x]) ArcTan[b x]/x, {x,0,6} ] ;

expr = Expand[ Normal[%] ]

FortranForm[expr]

% >> out.f

!!out.f

CForm[expr]

% >> out.c

!!out.c

TeXForm[expr]

% >> out.tex

!!out.tex