getCaseSafeId.fs

// Generates "case safe" versions Salesforce record ids
let flagsToChar flags = if flags < 26 then 'A' + (char flags) else '0' + (char (flags - 26))

let getCaseFlag id i j = if Char.IsUpper(id, i * 5 + j) then 1 <<< j else 0

let getCaseChar id i = 
	Seq.init 5 (getCaseFlag id i)
	|> Seq.sum
	|> flagsToChar

let getCaseSuffix id =
	Seq.init 3 (getCaseChar id)
	|> String.Concat
	
let getCaseSafeId id = id + (getCaseSuffix id)