I wanted to write something like this in Haskell a couple weeks ago but didn't know where to start. Thanks for the help!