getGCode ::     Machine m =>
                CuttingParameters m          -- Cutting parameters
                -> Operation m GCode ()         -- ^ op : Operation to tun
                -> GCode                        -- ^ Resulting GCode program
getGCode = runOperation
getGCode ::     Machine m =>
                CuttingParameters m          -- Cutting parameters
                -> Operation m GCode ()         -- ^ op : Operation to tun
                -> GCode
getGCode = runOperation
getGCode = runOperation