w̃i ( φ β w∈I? E n1 q1 n2 q2 n3 -- w̃i )

Vocabulary

math.parser.private

Inputs

φ	an object
β	an object
w∈I?	an object
E	an object
n1	an object
q1	an object
n2	an object
q2	an object
n3	an object

Outputs

w̃i

an object

Definition

USING: kernel math math.order ;

IN: math.parser.private

:: w̃i ( φ β w∈I? E n1 q1 n2 q2 n3 -- w̃i )
    φ -64 2dup 52 - n1 - [ shift ] 2bi@ q1 call β 11 - shift
    w∈I? E n2 3 between? q2 call [ n3 + ] unless ; inline