(# char-out file-name x -                        (# char-out file-name x - 
    (# bc record +B_OUT+B_COMPRESS .x)               (# bc record +B_OUT+B_64 .x)
)                                                )
