[Haskell-cafe] Card trick

Having heard about an interesting card trick, I thought I'd try implementing it in Haskell. With luck, I didn't make any mistakes. I thought it was cool enough to be worth sharing with you guys. -- Mark