Adding peering3 example for Haskell

I also made a slight modification to peering2.