/me ponders what Duff's Device would look like in Haskell.