diff --git a/Examples/example17.hs b/Examples/example17.hs
index f7481ef..9b62c90 100644
--- a/Examples/example17.hs
+++ b/Examples/example17.hs
@@ -10,12 +10,12 @@ object2 = squarePipe (10,10,10) 1 100
       squarePipe :: (ℝ,ℝ,ℝ) -> ℝ -> ℝ -> SymbolicObj3
       squarePipe (x,y,z) diameter precision =
             union
-            $ map (\start-> translate start
+            $ fmap (\start-> translate start
                    $ rect3R 0 (0,0,0) (diameter,diameter,diameter)
                   )
-            $ zip3 (map (\n->(fromIntegral n/precision)*x) [0..100])
-                   (map (\n->(fromIntegral n/precision)*y) [0..100])
-                   (map (\n->(fromIntegral n/precision)*z) [0..100])
+            $ zip3 (fmap (\n->(fromIntegral n/precision)*x) [0..100])
+                   (fmap (\n->(fromIntegral n/precision)*y) [0..100])
+                   (fmap (\n->(fromIntegral n/precision)*z) [0..100])
 
 main = writeSTL 1 "example17.stl" object2