writeProgram :: String -> Program -> IO ()
writeProgram output p = writeFile output $ showProgram p
writeProgram :: String -> Program -> IO ()
writeProgram output p = writeFile output $ showProgram p
writeProgram output p = writeFile output $ showProgram p