let
strip v =
let
(e,v,u,b) =
Debian
.
Version
.split v
in
Debian
.
Version
.concat (
""
,v,u,b)