texsrc=

!if $format=t or $format=s
 subt=!mathsubst infinity={\infty} in $substitute
 subt=!singlespace $subt
 !distribute lines f'(x)\
	f''(x)\
	f'''(x)\
	f^{(4)}(x)\
	f^{(5)}(x)\
	\lim_{x\to $subt} f(x)\
	\int f(x)dx\
	\int_{$ileft}^{$iright} f(x)dx\
	f(x)\
	\qquad \
	into deriv1_hd,deriv2_hd,deriv3_hd,deriv4_hd,deriv5_hd,\
	     limit_hd,prim_hd,intnum_hd,\
	     taylor_hd,taylorfloat_hd
!endif	     

!if $format=r

 !distribute lines diff(f(x),x,1)\
	diff(f(x),x,2)\
	diff(f(x),x,3)\
	diff(f(x),x,4)\
	diff(f(x),x,5)\
	limit(f(x),x,$substitute)\
	int(f(x),x)\
	int(f(x),x=$ileft..$iright)\
	f(x)\
	\
	into deriv1_hd,deriv2_hd,deriv3_hd,deriv4_hd,deriv5_hd,\
	     limit_hd,prim_hd,intnum_hd,\
	     taylor_hd,taylorfloat_hd
!endif

!if $format=h
 wims_texsize=3
 !distribute lines $m_f<tt>'</tt>(x)\
	$m_f<tt>''</tt>(x)\
	$m_f<tt>'''</tt>(x)\
	$m_f<sup>(4)</sup>(x)\
	$m_f<sup>(5)</sup>(x)\
	lim<sub>x -&gt; $substitute</sub>\
	$m_int $m_f(x)dx\
	$m_int <sub>$ileft</sub><sup>$iright</sup> $m_f(x)dx\
	$m_f(x)\
	&nbsp;&nbsp;&nbsp;\
	into deriv1_hd,deriv2_hd,deriv3_hd,deriv4_hd,deriv5_hd,\
	     limit_hd,prim_hd,intnum_hd,\
	     taylor_hd,taylorfloat_hd
 wims_texsize=0
!endif

