-- see http://l...content-available-to-author-only...s.org/wiki/ReadWriteFormat
 
-- Write an integer in MSB order using width bytes.
function numbertobytes(num, width)
  local function _n2b(t, width, num, rem)
    if width == 0 then return table.concat(t) end
    table.insert(t, 1, string.char(rem * 0x100))
    return _n2b(t, width-1, math.modf(num/0x100))
  end
  return _n2b({}, width, math.modf(num/0x100))
end
 
io.write("<", numbertobytes(0x61626364, 4), ">\n")

LS0gc2VlIGh0dHA6Ly9sLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5zLm9yZy93aWtpL1JlYWRXcml0ZUZvcm1hdAoKLS0gV3JpdGUgYW4gaW50ZWdlciBpbiBNU0Igb3JkZXIgdXNpbmcgd2lkdGggYnl0ZXMuCmZ1bmN0aW9uIG51bWJlcnRvYnl0ZXMobnVtLCB3aWR0aCkKICBsb2NhbCBmdW5jdGlvbiBfbjJiKHQsIHdpZHRoLCBudW0sIHJlbSkKICAgIGlmIHdpZHRoID09IDAgdGhlbiByZXR1cm4gdGFibGUuY29uY2F0KHQpIGVuZAogICAgdGFibGUuaW5zZXJ0KHQsIDEsIHN0cmluZy5jaGFyKHJlbSAqIDB4MTAwKSkKICAgIHJldHVybiBfbjJiKHQsIHdpZHRoLTEsIG1hdGgubW9kZihudW0vMHgxMDApKQogIGVuZAogIHJldHVybiBfbjJiKHt9LCB3aWR0aCwgbWF0aC5tb2RmKG51bS8weDEwMCkpCmVuZAoKaW8ud3JpdGUoIjwiLCBudW1iZXJ0b2J5dGVzKDB4NjE2MjYzNjQsIDQpLCAiPlxuIik=