1lib: version: 2 3with lib; 4 5let 6 fragments = splitVersion version; 7 major = head fragments; 8 minor = concatMapStrings (fixedWidthNumber 2) (tail fragments); 9in 10 11major + minor + "00"