showProbs :: Probs -> String
showProbs = HM.foldrWithKey (\(e,f) a acc -> if a>0.001 then (unwords [f,e, (printf "%.4f\n" a)])++acc else acc) []
showProbs :: Probs -> String
showProbs = HM.foldrWithKey (\(e,f) a acc -> if a>0.001 then (unwords [f,e, (printf "%.4f\n" a)])++acc else acc) []
showProbs = HM.foldrWithKey (\(e,f) a acc -> if a>0.001 then (unwords [f,e, (printf "%.4f\n" a)])++acc else acc) []