debug :: String -> Triples -> Bool
debug msg ts =
  unsafePerformIO $
    putStrLn msg >> mapM (putStrLn . show) ts >> return True
debug :: String -> Triples -> Bool
debug msg ts =
  unsafePerformIO $
    putStrLn msg >> mapM (putStrLn . show) ts >> return True
debug msg ts =
  unsafePerformIO $
    putStrLn msg >> mapM (putStrLn . show) ts >> return True