Calculates the possible numbers that could be thrown by `n` dice, and the number of occurrences.

dice.hs

import Control.Monad
import Control.Arrow
import Data.List

dice :: Int -> [(Int, Int)]
dice = freq . map sum . (flip replicateM) [1..6]

freq :: Ord a => [a] -> [(a, Int)]
freq = map (head &&& length) . group . sort