A Multi-User Dungeon in Haskell.