A WIP simpler version of dose.py to haskell.