Fixpoint serializeComponentValues (vs : list componentValueT) : list octet :=
  match vs with
  | []        => []
  | (x :: xs) => serializeValue x ++ serializeComponentValues xs
  end.
