parseVer :: String -> [Int]
parseVer = map readInt . sep ('.'==) where
    readInt = read :: String -> Int
parseVer :: String -> [Int]
parseVer = map readInt . sep ('.'==) where
    readInt = read :: String -> Int
parseVer = map readInt . sep ('.'==) where
    readInt = read :: String -> Int