implement case pattern matching for tutoriald

From the "Out of the Tarpit" tutd:

```
data Price = Price Integer
```

There is no way to use this with integer functions without a pattern match. Implement `case` expressions in TutorialD.