Data transfer example in haskell