Starting to get the hang of free #monads. #haskell.