sketch using the accelstepper library instead. Working