getInt :: Option -> Integer
getInt opt = case value opt of
  (IntOpt x) -> x
  _ -> 0
getInt :: Option -> Integer
getInt opt = case value opt of
  (IntOpt x) -> x
  _ -> 0
getInt opt = case value opt of
  (IntOpt x) -> x
  _ -> 0