mkFunction :: String -> String -> Int -> String
mkFunction prev name id
  = let tbl = table name id
        fun = function_dec name (id + 1)
        imp = function_def prev name
    in fun ++ "\n" ++ imp ++ "\n\n" ++ tbl
mkFunction :: String -> String -> Int -> String
mkFunction prev name id
  = let tbl = table name id
        fun = function_dec name (id + 1)
        imp = function_def prev name
    in fun ++ "\n" ++ imp ++ "\n\n" ++ tbl
mkFunction prev name id
  = let tbl = table name id
        fun = function_dec name (id + 1)
        imp = function_def prev name
    in fun ++ "\n" ++ imp ++ "\n\n" ++ tbl