something made in Mathematica

I try to work with Mathematica. Its interesting.
n = RegionPlot3D[
y*y + z*z < 1 && x*x + y*y < 1 && x*x + z*z < 1, {x, -1, 1}, {y, -1,
1}, {z, -1, 1}, Boxed -> False, Axes -> None, PlotPoints -> 200,
Mesh -> None]
Export["Nekaj.stl", n]