value ora_describe: ora_connection -> string -> array described_column = 
fun con table ->
    let arr = occi_describe con table in 
    Array.map
        (fun (n, t, w, s, u) -> 
            let c = decode_occi_type t in
            {name=n; ctype=c; len=w; scale=s; not_null=u})
        arr