[johnday]

Not exactly write - you would use have to use either view patterns or a case...of statement rather than guards here. But the general gist is right.