putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]"
putStrLn (toTikZ example)
putStrLn "\\end{tikzpicture}"
putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]"
putStrLn (toTikZ example)
putStrLn "\\end{tikzpicture}"