zOs/REXX/EXEXIT

arg a
if a = '' then do
    do x=1 to 40
         res = exExit(2**x)
         say x 2**x 'len' length(res) left(res, 10)'...'right(res,10)
         end
    end
else do
    exit '<'a left('', a, '-') a'>'
    end