Example of Async in Haskell - View it on GitHub