>>145
data Ordered a = Ordered [a] a   -- [a]は優先順位を表現したリスト
ということですね?
同じく今はこれで行こうと思っています