hashLetterCompare :: Ord a => [a] -> [a] -> Ordering
hashLetterCompare l1s l2s =
  case compare (length l2s) (length l1s) of
    LT -> LT
    GT -> GT
    EQ -> compare (head l1s) (head l2s)
hashLetterCompare :: Ord a => [a] -> [a] -> Ordering
hashLetterCompare l1s l2s =
  case compare (length l2s) (length l1s) of
    LT -> LT
    GT -> GT
    EQ -> compare (head l1s) (head l2s)
hashLetterCompare l1s l2s =
  case compare (length l2s) (length l1s) of
    LT -> LT
    GT -> GT
    EQ -> compare (head l1s) (head l2s)