thisSituation :: Prob (Prob Char)
thisSituation = Prob
  [(Prob [('a', 1%2),('b', 1%2)], 1%4)
  ,(Prob [('c', 1%2),('d', 1%2)], 3%4)
  ]
thisSituation :: Prob (Prob Char)
thisSituation = Prob
  [(Prob [('a', 1%2),('b', 1%2)], 1%4)
  ,(Prob [('c', 1%2),('d', 1%2)], 3%4)
  ]
thisSituation = Prob
  [(Prob [('a', 1%2),('b', 1%2)], 1%4)
  ,(Prob [('c', 1%2),('d', 1%2)], 3%4)
  ]