-import Data.Char (digitToInt, intToDigit)
-import qualified Data.List as DL
-import qualified Numeric as N
-import System.Exit (exitFailure)
-import Text.Regex.Posix
-
-import ListUtils
-
--- Takes an IP address in CIDR notation, and returns a list of its
--- octets (converted to Int).
-octets :: String -> [Int]
-octets cidr = map read (take 4 (splitWith (`elem` "./") cidr))
-
-
--- Returns the mask portion of a CIDR address. That is, everything
--- after the trailing slash.
-maskbits :: String -> Int
-maskbits cidr = read ((splitWith (`elem` "/") cidr) !! 1)
-
-
--- Takes an Int, and returns its base-two representation as a String.
-base_two :: Int -> String
-base_two n = N.showIntAtBase 2 intToDigit n ""
-
-
--- Takes a set of octets, and converts them to base-two
--- individually. The results are then zero-padded on the left to 8
--- characters, and concatenated together.
-octets_base_two :: [Int] -> String
-octets_base_two octet_list =
- DL.concatMap ((pad_left_to 8 '0') .base_two) octet_list
-
-
--- Returns the minimum address (as a base-two string) satisfying the
--- given CIDR string.
-min_base_two_address :: String -> String
-min_base_two_address cidr =
- pad_right_to 32 '0' netpart
- where
- netpart = take (maskbits cidr) (octets_base_two (octets cidr))
+import Data.List (intercalate, intersperse)
+import System.Exit (ExitCode(..), exitWith)
+import System.IO (stderr, hPutStrLn)