cutClear :: IM.IntMap Int -> IM.IntMap Int
cutClear m =
  if IM.size m == IM.size m'
    then m
    else cutClear m'
  where
    m' = cut m
cutClear :: IM.IntMap Int -> IM.IntMap Int
cutClear m =
  if IM.size m == IM.size m'
    then m
    else cutClear m'
  where
    m' = cut m
cutClear m =
  if IM.size m == IM.size m'
    then m
    else cutClear m'
  where
    m' = cut m