cFooter = "return 0;}"
-compile :: [Stm] -> String
-compile s = cHeader++concat (map compileStm s)++cFooter
+compile :: [Func] -> [Stm] -> String
+compile f s = cHeader++concat (map compileStm s)++cFooter
compileExp :: Exp -> String
compileExp (EBool True) = "1";