(
*
D
e
f
i
n
e
t
h
e
f
u
n
c
t
i
o
n
*
)
f
[
z
_
]
:
=
z
^
3
*
(
1
-
3
*
z
)
/
(
(
1
+
z
)
*
(
1
+
2
*
z
^
4
)
)
(
*
C
o
m
p
u
t
e
t
h
e
r
e
s
i
d
u
e
a
t
z
=
-
I
n
f
i
n
i
t
y
*
)
R
e
s
i
d
u
e
[
f
[
z
]
,
{
z
,
I
n
f
i
n
i
t
y
}
]
(
*
C
o
m
p
u
t
e
t
h
e
r
e
s
i
d
u
e
a
t
z
=
0
*
)
R
e
s
i
d
u
e
[
1
/
z
^
2
*
f
[
1
/
z
]
,
{
z
,
0
}
]
O
u
t
[
]
=
3
2
O
u
t
[
]
=
-
3
2