main :: IO ()
main = putStr . (++"M2\n") . show . getGCode defaultCuttingParameters $ zPlate
main :: IO ()
main = putStr . (++"M2\n") . show . getGCode defaultCuttingParameters $ zPlate
main = putStr . (++"M2\n") . show . getGCode defaultCuttingParameters $ zPlate