main = do
    n:_ <- getArgs
    putStrLn header
    last <- genFunctions (read n)
    putStrLn $ "int main()\n{\n\t" ++ last ++ "_entry();\n\treturn 1;\n}\n"
    return ()
main = do
    n:_ <- getArgs
    putStrLn header
    last <- genFunctions (read n)
    putStrLn $ "int main()\n{\n\t" ++ last ++ "_entry();\n\treturn 1;\n}\n"
    return ()
main = do
    n:_ <- getArgs
    putStrLn header
    last <- genFunctions (read n)
    putStrLn $ "int main()\n{\n\t" ++ last ++ "_entry();\n\treturn 1;\n}\n"
    return ()