add dice.hs