Update coto2.hs

Use view?
Merge pull request #1 from ekmett/patch-1

Update coto2.hs