hqx>ch ( ch -- ch )

Vocabulary

binhex.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: kernel kernel.private math sequences ;

IN: binhex.private

: hqx>ch ( ch -- ch )
    {
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        0
        1
        2
        3
        4
        5
        6
        7
        8
        9
        10
        11
        12
        f
        f
        13
        14
        15
        16
        17
        18
        19
        f
        20
        21
        f
        f
        f
        f
        f
        f
        22
        23
        24
        25
        26
        27
        28
        29
        30
        31
        32
        33
        34
        35
        36
        f
        37
        38
        39
        40
        41
        42
        43
        f
        44
        45
        46
        47
        f
        f
        f
        f
        48
        49
        50
        ~16 more~
    } nth [ malformed-hqx ] unless* { fixnum } declare ; inline