sendToDestChan :: (Serializable a) => ReceivePort (Dest a) -> a -> Process ()
sendToDestChan chDst a = do
    dst <- receiveChan chDst
    sendToDest dst a

-- Send value to the destination
sendToDestChan :: (Serializable a) => ReceivePort (Dest a) -> a -> Process ()
sendToDestChan chDst a = do
    dst <- receiveChan chDst
    sendToDest dst a

-- Send value to the destination
sendToDestChan chDst a = do
    dst <- receiveChan chDst
    sendToDest dst a

-- Send value to the destination