Solve 82 in haskell
Add sample input to 81