front1 = chain 1 [
                probeCorner
                , bearing
                , screwHoles
                , translate (V3 28.6 9 0) $ drill (10+0.5) 1
                , translate (V3 (-28.6) 9 0) $ drill (10+0.5) 1
                , zRepetition 10.5 (Just 1) (const $ contour [V2 (-35) 22.75, V2 (-35) (-14.5), V2 35 (-14.5), V2 35 22.75] RightSide False)
        ]
front1 = chain 1 [
                probeCorner
                , bearing
                , screwHoles
                , translate (V3 28.6 9 0) $ drill (10+0.5) 1
                , translate (V3 (-28.6) 9 0) $ drill (10+0.5) 1
                , zRepetition 10.5 (Just 1) (const $ contour [V2 (-35) 22.75, V2 (-35) (-14.5), V2 35 (-14.5), V2 35 22.75] RightSide False)
        ]
front1 = chain 1 [
                probeCorner
                , bearing
                , screwHoles
                , translate (V3 28.6 9 0) $ drill (10+0.5) 1
                , translate (V3 (-28.6) 9 0) $ drill (10+0.5) 1
                , zRepetition 10.5 (Just 1) (const $ contour [V2 (-35) 22.75, V2 (-35) (-14.5), V2 35 (-14.5), V2 35 22.75] RightSide False)
        ]