parseOptionSize :: [String] -> (GnuSize,[String])
parseOptionSize (x) = (size,(tail trimmedText))
  where trimmedText = trimLeading x
        parseResults = readsPrec 0 (head trimmedText)
        (size,_) = head parseResults
parseOptionSize :: [String] -> (GnuSize,[String])
parseOptionSize (x) = (size,(tail trimmedText))
  where trimmedText = trimLeading x
        parseResults = readsPrec 0 (head trimmedText)
        (size,_) = head parseResults
parseOptionSize (x) = (size,(tail trimmedText))
  where trimmedText = trimLeading x
        parseResults = readsPrec 0 (head trimmedText)
        (size,_) = head parseResults