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