main :: IO ()
main = do
  (pathOfTempFile, h) <- openTempFile "/tmp" "edtable.svg"
  putStrLn ("Writing to " ++ pathOfTempFile)
  hPutStr h $ show $ toSVG (edtable s1 s2)
  hClose h
main :: IO ()
main = do
  (pathOfTempFile, h) <- openTempFile "/tmp" "edtable.svg"
  putStrLn ("Writing to " ++ pathOfTempFile)
  hPutStr h $ show $ toSVG (edtable s1 s2)
  hClose h
main = do
  (pathOfTempFile, h) <- openTempFile "/tmp" "edtable.svg"
  putStrLn ("Writing to " ++ pathOfTempFile)
  hPutStr h $ show $ toSVG (edtable s1 s2)
  hClose h