: h: ( u-u) hex dup 0 do parse-name
evaluate c, loop decimal ;
create rels 8
h: 00 01 02 03 02 12 22 32 \ iiii
h: 00 01 02 03 02 12 22 32 \
h: 03 11 12 13 01 02 12 22 \ jjj
h: 01 02 03 11 02 12 22 23 \ . j
drop
rels 40 dump
OiBoOiAoIHUtdSkgaGV4ICBkdXAgMCBkbyAgcGFyc2UtbmFtZQogIGV2YWx1YXRlIGMsIGxvb3AgIGRlY2ltYWwgOwpjcmVhdGUgcmVscyA4Cmg6IDAwIDAxIDAyIDAzICAwMiAxMiAyMiAzMiAgXCBpaWlpCmg6IDAwIDAxIDAyIDAzICAwMiAxMiAyMiAzMiAgXApoOiAwMyAxMSAxMiAxMyAgMDEgMDIgMTIgMjIgXCAgICBqamoKaDogMDEgMDIgMDMgMTEgIDAyIDEyIDIyIDIzIFwgICAuICBqCmRyb3AKCnJlbHMgNDAgZHVtcAo=