diff ( y , x , 1 ) =  2.0 / exp(x);
!
Digits := 32;
max_terms := 30;
!
x_start := 1.0;
# did poorly with x_start := -5.0;
x_end := 5.0 ;
diff(y,0,exact_soln_y(x_start));
glob_look_poles := true;
#
# Not Given = 0
# Real = 1
# Complex = 2 
# No Pole = 3
# Impossible Eq = 4
#
glob_type_given_pole := 3;
!
exact_soln_y := proc(x)
return(- 2.0/exp(x));
end;