HEX : VLISTB 1A 0 DO I 7 * 2F5BE + COUNT ?DUP IF SWAP @ DUP ROT 13 * + SWAP DO J 41 + EMIT
I 2+ N@ ?DUP IF 2F + EMIT THEN I C@ 60 > IF 24 EMIT THEN BL EMIT 13 +LOOP DUP THEN DROP LOOP ;