base91>ch ( ch -- ch )

Vocabulary

base91.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: base91 kernel kernel.private math sequences ;

IN: base91.private

: base91>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
        62
        90
        63
        64
        65
        66
        f
        67
        68
        69
        70
        71
        f
        72
        73
        52
        53
        54
        55
        56
        57
        58
        59
        60
        61
        74
        75
        76
        77
        78
        79
        80
        0
        1
        2
        3
        4
        5
        6
        7
        8
        9
        10
        11
        12
        13
        14
        15
        16
        17
        18
        19
        20
        21
        22
        23
        24
        25
        81
        f
        82
        83
        84
        85
        26
        27
        ~28 more~
    } nth [ malformed-base91 ] unless* { fixnum } declare ;
    inline