pubTitle :: Int -> Gen String
pubTitle size = do
  i  <- choose (1, size - 1)
  v1 <- vectorOf i $ choose ('0', '9')
  v2 <- vectorOf (size - i) $ choose ('0', '9')
  return $ v1 ++ "-" ++ v2
pubTitle :: Int -> Gen String
pubTitle size = do
  i  <- choose (1, size - 1)
  v1 <- vectorOf i $ choose ('0', '9')
  v2 <- vectorOf (size - i) $ choose ('0', '9')
  return $ v1 ++ "-" ++ v2
pubTitle size = do
  i  <- choose (1, size - 1)
  v1 <- vectorOf i $ choose ('0', '9')
  v2 <- vectorOf (size - i) $ choose ('0', '9')
  return $ v1 ++ "-" ++ v2