import Data.List (sort)
 
data DanKyuRank = Kyu Int | Dan Int deriving ( Eq, Show )
 
instance Ord DanKyuRank where
    compare (Dan _) (Kyu _) = GT
    compare (Kyu _) (Dan _) = LT
    compare (Dan a) (Dan b) = compare a b
    compare (Kyu a) (Kyu b) = compare b a
 
main = do
    print $ compare (Dan 1) (Dan 2)
    print $ compare (Kyu 1) (Kyu 2)
    print $ compare (Dan 1) (Kyu 2)
    print $ Dan 1 /= Dan 1
    print $ Kyu 1 /= Kyu 1
    print $ Dan 1 /= Kyu 1
    let xs = [Dan 5, Dan 9, Kyu 4, Kyu 1, Dan 2, Kyu 6, Dan 1]
    print $ xs
    print $ sort xs
 

aW1wb3J0IERhdGEuTGlzdCAoc29ydCkKCmRhdGEgRGFuS3l1UmFuayA9IEt5dSBJbnQgfCBEYW4gSW50IGRlcml2aW5nICggRXEsIFNob3cgKQoKaW5zdGFuY2UgT3JkIERhbkt5dVJhbmsgd2hlcmUKICAgIGNvbXBhcmUgKERhbiBfKSAoS3l1IF8pID0gR1QKICAgIGNvbXBhcmUgKEt5dSBfKSAoRGFuIF8pID0gTFQKICAgIGNvbXBhcmUgKERhbiBhKSAoRGFuIGIpID0gY29tcGFyZSBhIGIKICAgIGNvbXBhcmUgKEt5dSBhKSAoS3l1IGIpID0gY29tcGFyZSBiIGEKCm1haW4gPSBkbwogICAgcHJpbnQgJCBjb21wYXJlIChEYW4gMSkgKERhbiAyKQogICAgcHJpbnQgJCBjb21wYXJlIChLeXUgMSkgKEt5dSAyKQogICAgcHJpbnQgJCBjb21wYXJlIChEYW4gMSkgKEt5dSAyKQogICAgcHJpbnQgJCBEYW4gMSAvPSBEYW4gMQogICAgcHJpbnQgJCBLeXUgMSAvPSBLeXUgMQogICAgcHJpbnQgJCBEYW4gMSAvPSBLeXUgMQogICAgbGV0IHhzID0gW0RhbiA1LCBEYW4gOSwgS3l1IDQsIEt5dSAxLCBEYW4gMiwgS3l1IDYsIERhbiAxXQogICAgcHJpbnQgJCB4cwogICAgcHJpbnQgJCBzb3J0IHhzCg==