Haskell, Snap and Kafka Experiment