]> git.saurik.com Git - apple/icu.git/blob - icuSources/data/brkitr/line_fi.txt
ICU-491.11.1.tar.gz
[apple/icu.git] / icuSources / data / brkitr / line_fi.txt
1 # Copyright (c) 2002-2011 International Business Machines Corporation and
2 # others. All Rights Reserved.
3 #
4 # file: line_fi.txt
5 #
6 # Line Breaking Rules
7 # Implement default line breaking as defined by
8 # Unicode Standard Annex #14 Revision 28 for Unicode 6.1
9 # http://www.unicode.org/reports/tr14/
10 #
11 # TODO: Rule LB 8 remains as it was in Unicode 5.2
12 # This is only because of a limitation of ICU break engine implementation,
13 # not because the older behavior is desirable.
14
15 #
16 # Character Classes defined by TR 14.
17 #
18
19 !!chain;
20 !!LBCMNoChain;
21
22
23 !!lookAheadHardBreak;
24 #
25 # !!lookAheadHardBreak Described here because it is (as yet) undocumented elsewhere
26 # and only used for the line break rules.
27 #
28 # It is used in the implementation of rule LB 10
29 # which says to treat any combining mark that is not attached to a base
30 # character as if it were of class AL (alphabetic).
31 #
32 # The problem occurs in the reverse rules.
33 #
34 # Consider a sequence like, with correct breaks as shown
35 # LF ID CM AL AL
36 # ^ ^ ^
37 # Then consider the sequence without the initial ID (ideographic)
38 # LF CM AL AL
39 # ^ ^
40 # Our CM, which in the first example was attached to the ideograph,
41 # is now unattached, becomes an alpha, and joins in with the other
42 # alphas.
43 #
44 # When iterating forwards, these sequences do not present any problems
45 # When iterating backwards, we need to look ahead when encountering
46 # a CM to see whether it attaches to something further on or not.
47 # (Look-ahead in a reverse rule is looking towards the start)
48 #
49 # If the CM is unattached, we need to force a break.
50 #
51 # !!lookAheadHardBreak forces the run time state machine to
52 # stop immediately when a look ahead rule ( '/' operator) matches,
53 # and set the match position to that of the look-ahead operator,
54 # no matter what other rules may be in play at the time.
55 #
56 # See rule LB 19 for an example.
57 #
58
59 $AI = [:LineBreak = Ambiguous:];
60 $AL = [:LineBreak = Alphabetic:];
61 $BA = [[:LineBreak = Break_After:] - [\u2010]];
62 $HH = [\u2010];
63 $BB = [:LineBreak = Break_Before:];
64 $BK = [:LineBreak = Mandatory_Break:];
65 $B2 = [:LineBreak = Break_Both:];
66 $CB = [:LineBreak = Contingent_Break:];
67 $CJ = [:LineBreak = Conditional_Japanese_Starter:];
68 $CL = [:LineBreak = Close_Punctuation:];
69 $CM = [:LineBreak = Combining_Mark:];
70 $CP = [:LineBreak = Close_Parenthesis:];
71 $CR = [:LineBreak = Carriage_Return:];
72 $EX = [:LineBreak = Exclamation:];
73 $GL = [:LineBreak = Glue:];
74 $HL = [:LineBreak = Hebrew_Letter:];
75 $HY = [:LineBreak = Hyphen:];
76 $H2 = [:LineBreak = H2:];
77 $H3 = [:LineBreak = H3:];
78 $ID = [:LineBreak = Ideographic:];
79 $IN = [:LineBreak = Inseperable:];
80 $IS = [:LineBreak = Infix_Numeric:];
81 $JL = [:LineBreak = JL:];
82 $JV = [:LineBreak = JV:];
83 $JT = [:LineBreak = JT:];
84 $LF = [:LineBreak = Line_Feed:];
85 $NL = [:LineBreak = Next_Line:];
86 $NS = [[:LineBreak = Nonstarter:] $CJ];
87 $NU = [:LineBreak = Numeric:];
88 $OP = [:LineBreak = Open_Punctuation:];
89 $PO = [:LineBreak = Postfix_Numeric:];
90 $PR = [:LineBreak = Prefix_Numeric:];
91 $QU = [:LineBreak = Quotation:];
92 $SA = [:LineBreak = Complex_Context:];
93 $SG = [:LineBreak = Surrogate:];
94 $SP = [:LineBreak = Space:];
95 $SY = [:LineBreak = Break_Symbols:];
96 $WJ = [:LineBreak = Word_Joiner:];
97 $XX = [:LineBreak = Unknown:];
98 $ZW = [:LineBreak = ZWSpace:];
99
100 # Dictionary character set, for triggering language-based break engines. Currently
101 # limited to LineBreak=Complex_Context. Note that this set only works in Unicode
102 # 5.0 or later as the definition of Complex_Context was corrected to include all
103 # characters requiring dictionary break.
104
105 $dictionary = [:LineBreak = Complex_Context:];
106
107 #
108 # Rule LB1. By default, treat AI (characters with ambiguous east Asian width),
109 # SA (South East Asian: Thai, Lao, Khmer)
110 # SG (Unpaired Surrogates)
111 # XX (Unknown, unassigned)
112 # as $AL (Alphabetic)
113 #
114 $ALPlus = [$AL $AI $SA $SG $XX];
115
116 #
117 # Combining Marks. X $CM* behaves as if it were X. Rule LB6.
118 #
119 $ALcm = $ALPlus $CM*;
120 $BAcm = $BA $CM*;
121 $HHcm = $HH $CM*;
122 $BBcm = $BB $CM*;
123 $B2cm = $B2 $CM*;
124 $CLcm = $CL $CM*;
125 $CPcm = $CP $CM*;
126 $EXcm = $EX $CM*;
127 $GLcm = $GL $CM*;
128 $HLcm = $HL $CM*;
129 $HYcm = $HY $CM*;
130 $H2cm = $H2 $CM*;
131 $H3cm = $H3 $CM*;
132 $IDcm = $ID $CM*;
133 $INcm = $IN $CM*;
134 $IScm = $IS $CM*;
135 $JLcm = $JL $CM*;
136 $JVcm = $JV $CM*;
137 $JTcm = $JT $CM*;
138 $NScm = $NS $CM*;
139 $NUcm = $NU $CM*;
140 $OPcm = $OP $CM*;
141 $POcm = $PO $CM*;
142 $PRcm = $PR $CM*;
143 $QUcm = $QU $CM*;
144 $SYcm = $SY $CM*;
145 $WJcm = $WJ $CM*;
146
147 ## -------------------------------------------------
148
149 !!forward;
150
151 #
152 # Each class of character can stand by itself as an unbroken token, with trailing combining stuff
153 #
154 $ALPlus $CM+;
155 $BA $CM+;
156 $HH $CM+;
157 $BB $CM+;
158 $B2 $CM+;
159 $CL $CM+;
160 $CP $CM+;
161 $EX $CM+;
162 $GL $CM+;
163 $HL $CM+;
164 $HY $CM+;
165 $H2 $CM+;
166 $H3 $CM+;
167 $ID $CM+;
168 $IN $CM+;
169 $IS $CM+;
170 $JL $CM+;
171 $JV $CM+;
172 $JT $CM+;
173 $NS $CM+;
174 $NU $CM+;
175 $OP $CM+;
176 $PO $CM+;
177 $PR $CM+;
178 $QU $CM+;
179 $SY $CM+;
180 $WJ $CM+;
181
182 #
183 # CAN_CM is the set of characters that may combine with CM combining chars.
184 # Note that Linebreak UAX 14's concept of a combining char and the rules
185 # for what they can combine with are _very_ different from the rest of Unicode.
186 #
187 # Note that $CM itself is left out of this set. If CM is needed as a base
188 # it must be listed separately in the rule.
189 #
190 $CAN_CM = [^$SP $BK $CR $LF $NL $ZW $CM]; # Bases that can take CMs
191 $CANT_CM = [ $SP $BK $CR $LF $NL $ZW $CM]; # Bases that can't take CMs
192
193 #
194 # AL_FOLLOW set of chars that can unconditionally follow an AL
195 # Needed in rules where stand-alone $CM s are treated as AL.
196 # Chaining is disabled with CM because it causes other failures,
197 # so for this one case we need to manually list out longer sequences.
198 #
199 $AL_FOLLOW_NOCM = [$BK $CR $LF $NL $ZW $SP];
200 $AL_FOLLOW_CM = [$CL $CP $EX $HL $IS $SY $WJ $GL $OP $QU $BA $HH $HY $NS $IN $NU $ALPlus];
201 $AL_FOLLOW = [$AL_FOLLOW_NOCM $AL_FOLLOW_CM];
202
203
204 #
205 # Rule LB 4, 5 Mandatory (Hard) breaks.
206 #
207 $LB4Breaks = [$BK $CR $LF $NL];
208 $LB4NonBreaks = [^$BK $CR $LF $NL];
209 $CR $LF {100};
210
211 #
212 # LB 6 Do not break before hard line breaks.
213 #
214 $LB4NonBreaks? $LB4Breaks {100}; # LB 5 do not break before hard breaks.
215 $CAN_CM $CM* $LB4Breaks {100};
216 $CM+ $LB4Breaks {100};
217
218 # LB 7 x SP
219 # x ZW
220 $LB4NonBreaks [$SP $ZW];
221 $CAN_CM $CM* [$SP $ZW];
222 $CM+ [$SP $ZW];
223
224 #
225 # LB 8 Break after zero width space
226 # TODO: ZW SP* <break>
227 # An engine change is required to write the reverse rule for this.
228 # For now, leave the Unicode 5.2 rule, ZW <break>
229 #
230 $LB8Breaks = [$LB4Breaks $ZW];
231 $LB8NonBreaks = [[$LB4NonBreaks] - [$ZW]];
232
233
234 # LB 9 Combining marks. X $CM needs to behave like X, where X is not $SP, $BK $CR $LF $NL
235 # $CM not covered by the above needs to behave like $AL
236 # See definition of $CAN_CM.
237
238 $CAN_CM $CM+; # Stick together any combining sequences that don't match other rules.
239 $CM+;
240
241 #
242 # LB 11 Do not break before or after WORD JOINER & related characters.
243 #
244 $CAN_CM $CM* $WJcm;
245 $LB8NonBreaks $WJcm;
246 $CM+ $WJcm;
247
248 $WJcm $CANT_CM;
249 $WJcm $CAN_CM $CM*;
250
251 #
252 # LB 12 Do not break after NBSP and related characters.
253 # GL x
254 #
255 $GLcm $CAN_CM $CM*;
256 $GLcm $CANT_CM;
257
258 #
259 # LB 12a Do not break before NBSP and related characters ...
260 # [^SP BA HY] x GL
261 #
262 [[$LB8NonBreaks] - [$SP $BA $HH $HY]] $CM* $GLcm;
263 $CM+ GLcm;
264
265
266
267 #
268 # LB 13 Don't break before ']' or '!' or ';' or '/', even after spaces.
269 #
270 $LB8NonBreaks $CL;
271 $CAN_CM $CM* $CL;
272 $CM+ $CL; # by rule 10, stand-alone CM behaves as AL
273
274 $LB8NonBreaks $CP;
275 $CAN_CM $CM* $CP;
276 $CM+ $CP; # by rule 10, stand-alone CM behaves as AL
277
278 $LB8NonBreaks $EX;
279 $CAN_CM $CM* $EX;
280 $CM+ $EX; # by rule 10, stand-alone CM behaves as AL
281
282 $LB8NonBreaks $IS;
283 $CAN_CM $CM* $IS;
284 $CM+ $IS; # by rule 10, stand-alone CM behaves as AL
285
286 $LB8NonBreaks $SY;
287 $CAN_CM $CM* $SY;
288 $CM+ $SY; # by rule 10, stand-alone CM behaves as AL
289
290
291 #
292 # LB 14 Do not break after OP, even after spaces
293 #
294 $OPcm $SP* $CAN_CM $CM*;
295 $OPcm $SP* $CANT_CM;
296
297 $OPcm $SP+ $CM+ $AL_FOLLOW?; # by rule 10, stand-alone CM behaves as AL
298
299 # LB 15
300 $QUcm $SP* $OPcm;
301
302 # LB 16
303 ($CLcm | $CPcm) $SP* $NScm;
304
305 # LB 17
306 $B2cm $SP* $B2cm;
307
308 #
309 # LB 18 Break after spaces.
310 #
311 $LB18NonBreaks = [$LB8NonBreaks - [$SP]];
312 $LB18Breaks = [$LB8Breaks $SP];
313
314
315 # LB 19
316 # x QU
317 $LB18NonBreaks $CM* $QUcm;
318 $CM+ $QUcm;
319
320 # QU x
321 $QUcm .?;
322 $QUcm $LB18NonBreaks $CM*; # Don't let a combining mark go onto $CR, $BK, etc.
323 # TODO: I don't think this rule is needed.
324
325
326 # LB 20
327 # <break> $CB
328 # $CB <break>
329
330 $LB20NonBreaks = [$LB18NonBreaks - $CB];
331
332 # LB 20.09 added rule for Finnish tailoring
333 # LB 21 x (BA | HY | NS)
334 # BB x
335 #
336 $LB20NonBreaks $CM* ($BAcm | $HHcm | $HYcm | $NScm) / $AL;
337 $LB20NonBreaks $CM* ($BAcm | $HHcm | $HYcm | $NScm);
338 ($HY | $HH) $AL;
339
340 $BBcm [^$CB]; # $BB x
341 $BBcm $LB20NonBreaks $CM*;
342
343 # LB 21a Don't break after Hebrew + Hyphen
344 # HL (HY | BA) x
345 #
346 $HLcm ($HYcm | $BAcm | $HHcm) [^$CB]?;
347
348 # LB 22
349 ($ALcm | $HLcm) $INcm;
350 $CM+ $INcm; # by rule 10, any otherwise unattached CM behaves as AL
351 $IDcm $INcm;
352 $INcm $INcm;
353 $NUcm $INcm;
354
355
356 # $LB 23
357 $IDcm $POcm;
358 $ALcm $NUcm; # includes $LB19
359 $HLcm $NUcm;
360 $CM+ $NUcm; # Rule 10, any otherwise unattached CM behaves as AL
361 $NUcm $ALcm;
362 $NUcm $HLcm;
363
364 #
365 # LB 24
366 #
367 $PRcm $IDcm;
368 $PRcm ($ALcm | $HLcm);
369 $POcm ($ALcm | $HLcm);
370
371 #
372 # LB 25 Numbers.
373 #
374 ($PRcm | $POcm)? ($OPcm | $HYcm)? $NUcm ($NUcm | $SYcm | $IScm)* ($CLcm | $CPcm)? ($PRcm | $POcm)?;
375
376 # LB 26 Do not break a Korean syllable
377 #
378 $JLcm ($JLcm | $JVcm | $H2cm | $H3cm);
379 ($JVcm | $H2cm) ($JVcm | $JTcm);
380 ($JTcm | $H3cm) $JTcm;
381
382 # LB 27 Treat korean Syllable Block the same as ID (don't break it)
383 ($JLcm | $JVcm | $JTcm | $H2cm | $H3cm) $INcm;
384 ($JLcm | $JVcm | $JTcm | $H2cm | $H3cm) $POcm;
385 $PRcm ($JLcm | $JVcm | $JTcm | $H2cm | $H3cm);
386
387
388 # LB 28 Do not break between alphabetics
389 #
390 ($ALcm | $HLcm) ($ALcm | $HLcm);
391 $CM+ ($ALcm | $HLcm); # The $CM+ is from rule 10, an unattached CM is treated as AL
392
393 # LB 29
394 $IScm ($ALcm | $HLcm);
395
396 # LB 30
397 ($ALcm | $HLcm | $NUcm) $OPcm;
398 $CM+ $OPcm; # The $CM+ is from rule 10, an unattached CM is treated as AL.
399 $CPcm ($ALcm | $HLcm | $NUcm);
400
401
402 #
403 # Reverse Rules.
404 #
405 ## -------------------------------------------------
406
407 !!reverse;
408
409 $CM+ $ALPlus;
410 $CM+ $BA;
411 $CM+ $HH;
412 $CM+ $BB;
413 $CM+ $B2;
414 $CM+ $CL;
415 $CM+ $CP;
416 $CM+ $EX;
417 $CM+ $GL;
418 $CM+ $HL;
419 $CM+ $HY;
420 $CM+ $H2;
421 $CM+ $H3;
422 $CM+ $ID;
423 $CM+ $IN;
424 $CM+ $IS;
425 $CM+ $JL;
426 $CM+ $JV;
427 $CM+ $JT;
428 $CM+ $NS;
429 $CM+ $NU;
430 $CM+ $OP;
431 $CM+ $PO;
432 $CM+ $PR;
433 $CM+ $QU;
434 $CM+ $SY;
435 $CM+ $WJ;
436 $CM+;
437
438
439 #
440 # Sequences of the form (shown forwards)
441 # [CANT_CM] <break> [CM] [whatever]
442 # The CM needs to behave as an AL
443 #
444 $AL_FOLLOW $CM+ / (
445 [$BK $CR $LF $NL $ZW {eof}] |
446 $SP+ $CM+ $SP |
447 $SP+ $CM* ([^$OP $CM $SP] | [$AL {eof}])); # if LB 14 will match, need to surpress this break.
448 # LB14 says OP SP* x .
449 # becomes OP SP* x AL
450 # becomes OP SP* x CM+ AL_FOLLOW
451 #
452 # Further note: the $AL in [$AL {eof}] is only to work around
453 # a rule compiler bug which complains about
454 # empty sets otherwise.
455
456 #
457 # Sequences of the form (shown forwards)
458 # [CANT_CM] <break> [CM] <break> [PR]
459 # The CM needs to behave as an AL
460 # This rule is concerned about getting the second of the two <breaks> in place.
461 #
462
463 [$PR ] / $CM+ [$BK $CR $LF $NL $ZW $SP {eof}];
464
465
466
467 # LB 4, 5, 5
468
469 $LB4Breaks [$LB4NonBreaks-$CM];
470 $LB4Breaks $CM+ $CAN_CM;
471 $LF $CR;
472
473
474 # LB 7 x SP
475 # x ZW
476 [$SP $ZW] [$LB4NonBreaks-$CM];
477 [$SP $ZW] $CM+ $CAN_CM;
478
479 # LB 8 ZW SP* <break>
480 # TODO: to implement this, we need more than one look-ahead hard break in play at a time.
481 # Requires an engine enhancement.
482 # / $SP* $ZW
483
484 # LB 9,10 Combining marks.
485 # X $CM needs to behave like X, where X is not $SP or controls.
486 # $CM not covered by the above needs to behave like $AL
487 # Stick together any combining sequences that don't match other rules.
488 $CM+ $CAN_CM;
489
490
491 # LB 11
492 $CM* $WJ $CM* $CAN_CM;
493 $CM* $WJ [$LB8NonBreaks-$CM];
494
495 $CANT_CM $CM* $WJ;
496 $CM* $CAN_CM $CM* $WJ;
497
498 # LB 12a
499 # [^SP BA HY] x GL
500 #
501 $CM* $GL $CM* [$LB8NonBreaks-[$CM $SP $BA $HH $HY]];
502
503 # LB 12
504 # GL x
505 #
506 $CANT_CM $CM* $GL;
507 $CM* $CAN_CM $CM* $GL;
508
509
510 # LB 13
511 $CL $CM+ $CAN_CM;
512 $CP $CM+ $CAN_CM;
513 $EX $CM+ $CAN_CM;
514 $IS $CM+ $CAN_CM;
515 $SY $CM+ $CAN_CM;
516
517 $CL [$LB8NonBreaks-$CM];
518 $CP [$LB8NonBreaks-$CM];
519 $EX [$LB8NonBreaks-$CM];
520 $IS [$LB8NonBreaks-$CM];
521 $SY [$LB8NonBreaks-$CM];
522
523 # Rule 13 & 14 taken together for an edge case.
524 # Match this, shown forward
525 # OP SP+ ($CM+ behaving as $AL) (CL | CP | EX | IS | IY)
526 # This really wants to chain at the $CM+ (which is acting as an $AL)
527 # except for $CM chaining being disabled.
528 [$CL $CP $EX $IS $SY] $CM+ $SP+ $CM* $OP;
529
530 # LB 14 OP SP* x
531 #
532 $CM* $CAN_CM $SP* $CM* $OP;
533 $CANT_CM $SP* $CM* $OP;
534 $AL_FOLLOW? $CM+ $SP $SP* $CM* $OP; # by LB 10, behaves like $AL_FOLLOW? $AL $SP* $CM* $OP
535
536 $AL_FOLLOW_NOCM $CM+ $SP+ $CM* $OP;
537 $CM* $AL_FOLLOW_CM $CM+ $SP+ $CM* $OP;
538 $SY $CM $SP+ $OP; # TODO: Experiment. Remove.
539
540
541
542 # LB 15
543 $CM* $OP $SP* $CM* $QU;
544
545 # LB 16
546 $CM* $NS $SP* $CM* ($CL | $CP);
547
548 # LB 17
549 $CM* $B2 $SP* $CM* $B2;
550
551 # LB 18 break after spaces
552 # Nothing explicit needed here.
553
554
555 #
556 # LB 19
557 #
558 $CM* $QU $CM* $CAN_CM; # . x QU
559 $CM* $QU $LB18NonBreaks;
560
561
562 $CM* $CAN_CM $CM* $QU; # QU x .
563 $CANT_CM $CM* $QU;
564
565 #
566 # LB 20 Break before and after CB.
567 # nothing needed here.
568 #
569
570 # LB 20.09 added rule for Finnish tailoring
571 $AL ($HY | $HH) / $SP;
572
573 # LB 21
574 $CM* ($BA | $HH | $HY | $NS) $CM* [$LB20NonBreaks-$CM]; # . x (BA | HY | NS)
575
576 $CM* [$LB20NonBreaks-$CM] $CM* $BB; # BB x .
577 [^$CB] $CM* $BB; #
578
579 # LB21a
580 [^$CB] $CM* ($HY | $BA | $HH) $CM* $HL;
581
582
583 # LB 22
584 $CM* $IN $CM* ($ALPlus | $HL);
585 $CM* $IN $CM* $ID;
586 $CM* $IN $CM* $IN;
587 $CM* $IN $CM* $NU;
588
589 # LB 23
590 $CM* $PO $CM* $ID;
591 $CM* $NU $CM* ($ALPlus | $HL);
592 $CM* ($ALPlus | $HL) $CM* $NU;
593
594 # LB 24
595 $CM* $ID $CM* $PR;
596 $CM* ($ALPlus | $HL) $CM* $PR;
597 $CM* ($ALPlus | $HL) $CM* $PO;
598
599
600 # LB 25
601 ($CM* ($PR | $PO))? ($CM* ($CL | $CP))? ($CM* ($NU | $IS | $SY))* $CM* $NU ($CM* ($OP | $HY))? ($CM* ($PR | $PO))?;
602
603 # LB 26
604 $CM* ($H3 | $H2 | $JV | $JL) $CM* $JL;
605 $CM* ($JT | $JV) $CM* ($H2 | $JV);
606 $CM* $JT $CM* ($H3 | $JT);
607
608 # LB 27
609 $CM* $IN $CM* ($H3 | $H2 | $JT | $JV | $JL);
610 $CM* $PO $CM* ($H3 | $H2 | $JT | $JV | $JL);
611 $CM* ($H3 | $H2 | $JT | $JV | $JL) $CM* $PR;
612
613 # LB 28
614 $CM* ($ALPlus | $HL) $CM* ($ALPlus | $HL);
615
616
617 # LB 29
618 $CM* ($ALPlus | $HL) $CM* $IS;
619
620 # LB 30
621 $CM* $OP $CM* ($ALPlus | $HL | $NU);
622 $CM* ($ALPlus | $HL | $NU) $CM* $CP;
623
624
625 ## -------------------------------------------------
626
627 !!safe_reverse;
628
629 # LB 9
630 $CM+ [^$CM $BK $CR $LF $NL $ZW $SP];
631 $CM+ $SP / .;
632
633 # LB 14
634 $SP+ $CM* $OP;
635
636 # LB 15
637 $SP+ $CM* $QU;
638
639 # LB 16
640 $SP+ $CM* ($CL | $CP);
641
642 # LB 17
643 $SP+ $CM* $B2;
644
645 # LB 21
646 $CM* ($HY | $BA | $HH) $CM* $HL;
647
648 # LB 25
649 ($CM* ($IS | $SY))+ $CM* $NU;
650 ($CL | $CP) $CM* ($NU | $IS | $SY);
651
652 # For dictionary-based break
653 $dictionary $dictionary;
654
655 ## -------------------------------------------------
656
657 !!safe_forward;
658
659 # Skip forward over all character classes that are involved in
660 # rules containing patterns with possibly more than one char
661 # of context.
662 #
663 # It might be slightly more efficient to have specific rules
664 # instead of one generic one, but only if we could
665 # turn off rule chaining. We don't want to move more
666 # than necessary.
667 #
668 [$CM $OP $QU $CL $CP $B2 $PR $HY $BA $SP $dictionary]+ [^$CM $OP $QU $CL $CP $B2 $PR $HY $BA $dictionary];
669 $dictionary $dictionary;
670