Update Machine.hs

Corrected bind implementation of moore machines