Rename Data.Machine.Unread to Data.Machine.Stack and implement a run fun...

...ction