cantorRule :: Segment -> Segments
cantorRule (x1, x2) = let
    len = x2 - x1
    oneThird = len / 3.0
    in [(x1, x1 + oneThird), (x2 - oneThird, x2)]
cantorRule :: Segment -> Segments
cantorRule (x1, x2) = let
    len = x2 - x1
    oneThird = len / 3.0
    in [(x1, x1 + oneThird), (x2 - oneThird, x2)]
cantorRule (x1, x2) = let
    len = x2 - x1
    oneThird = len / 3.0
    in [(x1, x1 + oneThird), (x2 - oneThird, x2)]