await :: Serializable a => Promise a -> DNA a
await (Promise ch) = liftP $ receiveChan ch
await :: Serializable a => Promise a -> DNA a
await (Promise ch) = liftP $ receiveChan ch
await (Promise ch) = liftP $ receiveChan ch