And the monad-y solution, with assists by @xgrommx @bazzargh @johannesweiss
And the monad-y solution, with assists by @xgrommx @bazzargh @johannesweiss

geophf/1HaskellADay,geophf/1HaskellADay,geophf/1HaskellADay