Please put a quick comment for the admin.

If it looks like spam, the admin will mark it as spam so that the spam filter picks it up in the future.

If the paste contains something private or offensive, it'll probably just be deleted.

newtype Priority = Priority Int newtype Size = Size Int instance Monoid Size where mempty = Size 0 mappend a b = Size $ (getNum a) + (getNum b) where getNum (Size n) = n instance Monoid Priority where mempty = Priority maxBound mappend a b = Priority $ (getNum a) `min` (getNum b) where getNum (Priority n) = n |