touchedToQCBuilder :: Set Integer -> Builder
touchedToQCBuilder =
    builderFromList (fromChar ' ') fromShow . Set.toAscList
touchedToQCBuilder :: Set Integer -> Builder
touchedToQCBuilder =
    builderFromList (fromChar ' ') fromShow . Set.toAscList
touchedToQCBuilder =
    builderFromList (fromChar ' ') fromShow . Set.toAscList