A server for Blottleships written in Haskell