parseLine l = let [a, b] = splitOn "-" l
              in Range (read a) (read b)
parseLine l = let [a, b] = splitOn "-" l
              in Range (read a) (read b)
parseLine l = let [a, b] = splitOn "-" l
              in Range (read a) (read b)