depack n t =
    let v = if (member n t)
            then t ! n
            else 0
    in
        v:(depack (n+1) t)
depack n t =
    let v = if (member n t)
            then t ! n
            else 0
    in
        v:(depack (n+1) t)
depack n t =
    let v = if (member n t)
            then t ! n
            else 0
    in
        v:(depack (n+1) t)