[Haskell] Syntax Q: How do you share RHS's in case expressions!?