output :: Output -> Update ()
output o = State.modify (\(os, s) -> (os `mappend` [o], s))
output :: Output -> Update ()
output o = State.modify (\(os, s) -> (os `mappend` [o], s))
output o = State.modify (\(os, s) -> (os `mappend` [o], s))