module FreeCAD.Main where
import FreeCAD.Translator
import FreeCAD.HetPrinter
import FreeCAD.As
import System.FilePath
import Common.Lib.Pretty
main :: IO ()
main = do
doc <- processFile "./FreeCAD/test.fcstd"
writeFile "./FreeCAD/test.het" $ show $ printDoc "nametest" doc