SortedStatePairs = lists:sort(NewStatePairs),
StateChars = [state_to_char(S) || {_, S} <- SortedStatePairs],
ok = do_print_bar(X),
SortedStatePairs = lists:sort(NewStatePairs),
StateChars = [state_to_char(S) || {_, S} <- SortedStatePairs],
ok = do_print_bar(X),