back = chain 1 [ 
                message "Place the tool above the location of the bearing and start the spindle"
                , makeProbePocket
                , makeAlignmentPocket
                , message "Stop the spindle"
                , translate corner $ probeInnerCornerNE 5 (ProbeTool 3 42)
                , message "Start the spindle"
                , bearing
        ]
back = chain 1 [ 
                message "Place the tool above the location of the bearing and start the spindle"
                , makeProbePocket
                , makeAlignmentPocket
                , message "Stop the spindle"
                , translate corner $ probeInnerCornerNE 5 (ProbeTool 3 42)
                , message "Start the spindle"
                , bearing
        ]
back = chain 1 [ 
                message "Place the tool above the location of the bearing and start the spindle"
                , makeProbePocket
                , makeAlignmentPocket
                , message "Stop the spindle"
                , translate corner $ probeInnerCornerNE 5 (ProbeTool 3 42)
                , message "Start the spindle"
                , bearing
        ]