thirtysix (num, length) digits = "0123 ... xyz" retval = "" for i = (length - 1) to 0 step -1 power = 36^i retval = retval + substr(digits,n / power + 1, 1) n = n % power endfor return retval