(# bc x +B_IN+B_DECOMPRESS .record -             (# bc x +B_IN+B_64 .record - 
    (# char-in file-name .x)                         (# char-in file-name .x)
)                                                )