{-# LANGUAGE MultiParamTypeClasses #-}

module Lexicon (WeightedLexicon,dic)
       where

import Control.Monad.Plus
import Weighted

-- class (MonadPlus m) => Lexicon m a d where
--     dic :: d -> String -> m a

class WeightedLexicon a d where
    dic :: d -> String -> WeightedList a