formatJump :: Set (Ordering) -> Text
formatJump jump =
  T.pack $ map hot [LT, EQ, GT]
  where
    hot :: Ordering -> Char
    hot o =
      if Set.member o jump then '1' else '0'
formatJump :: Set (Ordering) -> Text
formatJump jump =
  T.pack $ map hot [LT, EQ, GT]
  where
    hot :: Ordering -> Char
    hot o =
      if Set.member o jump then '1' else '0'
formatJump jump =
  T.pack $ map hot [LT, EQ, GT]
  where
    hot :: Ordering -> Char
    hot o =
      if Set.member o jump then '1' else '0'