Contour Plots of Complex Functions

ContourPlot[{Abs[Sin[(x+I*y)^5]]==1,
Abs[Cos[(x^3+I*y)^3]]==1},
{x,-1.8,1.8},{y,-1.8,1.8},Frame->False,
Background->RGBColor["silver"],PlotPoints->100,
ContourStyle->{White,Blue},ImageSize->500]