my $flattened_properties = join('', @property{@letter});
    my @letter_seq = map {
        $curr->[STYLE]
        . ":"
        . join('', splice(@letter, 0, length $_))
    } $flattened_properties =~ /\G(X|D+|L+)/g;