EChain: make r ~ IO ()
WIP: more FireOnce