anagram :: String -> String -> Bool
anagram s1 s2 = toLower s1 /= toLower s2 && -- avoid anagram of itself case
                (sort (toLower s1) == sort (toLower s2))
anagram :: String -> String -> Bool
anagram s1 s2 = toLower s1 /= toLower s2 && -- avoid anagram of itself case
                (sort (toLower s1) == sort (toLower s2))
anagram s1 s2 = toLower s1 /= toLower s2 && -- avoid anagram of itself case
                (sort (toLower s1) == sort (toLower s2))