cantorCustomGen :: Segments -> Segments
cantorCustomGen segs = concatMap cantorRule segs
cantorCustomGen :: Segments -> Segments
cantorCustomGen segs = concatMap cantorRule segs
cantorCustomGen segs = concatMap cantorRule segs