Finish luhn validation exercise

Instead of using `head` and `tail`, you can actually pull off the first two elements in the pattern match:

``` haskell
doubleEveryOtherLeftToRight (x:y:xs) = x : y * 2 : doubleEveryOtherLeftToRight xs
```