Automatically parallelize computations

Parallelize[Map[StreamPlot[#, {x, -3, 3}, {y, -3, 3}]&, Flatten[Table[ {x^i y^j, x^jy^i}, {i, 2}, {j, 2}], 1]]]

{-Graphics-, -Graphics-, -Graphics-, -Graphics-}