Use pattern matching in do notation
Merge pull request #3 from swtw7466/swtw7466/domatch