a working haskell blastoff