anySourceTagTest :: IO ()
anySourceTagTest = do
  if (anySource) == (toEnum (-1)) then return ()
    else putStrLn ("anySource is not -1, but rather " ++ show anySource)
  if (anyTag) == (toEnum (-1)) then return ()
    else putStrLn ("anyTag is not -1, but rather " ++ show anyTag)
anySourceTagTest :: IO ()
anySourceTagTest = do
  if (anySource) == (toEnum (-1)) then return ()
    else putStrLn ("anySource is not -1, but rather " ++ show anySource)
  if (anyTag) == (toEnum (-1)) then return ()
    else putStrLn ("anyTag is not -1, but rather " ++ show anyTag)
anySourceTagTest = do
  if (anySource) == (toEnum (-1)) then return ()
    else putStrLn ("anySource is not -1, but rather " ++ show anySource)
  if (anyTag) == (toEnum (-1)) then return ()
    else putStrLn ("anyTag is not -1, but rather " ++ show anyTag)