let
utf_8_grapheme_clusters (s : string) : string list = utf_8_segments
`
Grapheme_cluster
s