- (singlechars
- (cond
- ((= @-2 ?ף) (set X @-1) (delete @-2) (insert "פֿ") (insert X))
- ((= @-2 ?ך) (set X @-1) (delete @-2) (insert ?כ) (insert X))
- ((= @-2 ?ם) (set X @-1) (delete @-2) (insert ?מ) (insert X))
- ((= @-2 ?ן) (set X @-1) (delete @-2) (insert ?נ) (insert X))
- ((= @-2 ?ץ) (set X @-1) (delete @-2) (insert ?צ) (insert X))
- )
- )
- (doublechars
- (cond
- ((= @-3 ?ף) (set X @-1) (set Y @-2) (delete @-3) (insert "פֿ") (insert Y) (insert X))
- ((= @-3 ?ך) (set X @-1) (set Y @-2) (delete @-3) (insert ?כ) (insert Y) (insert X))
- ((= @-3 ?ם) (set X @-1) (set Y @-2) (delete @-3) (insert ?מ) (insert Y) (insert X))
- ((= @-3 ?ן) (set X @-1) (set Y @-2) (delete @-3) (insert ?נ) (insert Y) (insert X))
- ((= @-3 ?ץ) (set X @-1) (set Y @-2) (delete @-3) (insert ?צ) (insert Y) (insert X))
- )
- )
- (triplechars
- (cond
- ((= @-4 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert "פֿ") (insert Z) (insert Y) (insert X))
- ((= @-4 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?כ) (insert Z) (insert Y) (insert X))
- ((= @-4 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?מ) (insert Z) (insert Y) (insert X))
- ((= @-4 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?נ) (insert Z) (insert Y) (insert X))
- ((= @-4 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?צ) (insert Z) (insert Y) (insert X))
- )
- )
- (quadruplechars
- (cond
- ((= @-5 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert "פֿ") (insert A) (insert Z) (insert Y) (insert X))
- ((= @-5 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?כ) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-5 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?מ) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-5 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?נ) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-5 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?צ) (insert A) (insert Z) (insert Y) (insert X))
- )
- )
- (quintuplechars
- (cond
- ((= @-6 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert "פֿ") (insert B) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-6 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?כ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-6 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?מ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-6 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?נ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
- ((= @-6 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?צ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
- )
- )
- (closequotes)
- (gershayim)
- (makef (shift init))
- (abbreviations (shift init))
- (backspace)
- (nil (shift init))
- )
+ (allchars
+ (pushback 1)
+ (cond
+ ((= @-1 ?ף) (delete @-1) (insert "פֿ"))
+ ((= @-1 ?ך) (delete @-1) (insert ?כ))
+ ((= @-1 ?ם) (delete @-1) (insert ?מ))
+ ((= @-1 ?ן) (delete @-1) (insert ?נ))
+ ((= @-1 ?ץ) (delete @-1) (insert ?צ))
+ )
+ (shift letters))
+ (closequotes)
+ (gershayim)
+ (makef (shift init))
+ (backspace)
+ (nil (shift init))
+ )
+ (letters
+ (medials (shift subsq))
+ (abbreviations (shift init))
+ (nil (shift subsq))
+ )