Definition padlen' (n: Z) : list Int.int :=
let q := (n+8)/64*16 + 15 - (n+8)/4   (* number of zero-pad words *)
in zeros q ++ [Int.repr (n * 8 / Int.modulus); Int.repr (n * 8)].

Lemma roundup_ge:
forall a b,  b > 0 -> roundup a b >= a.