writeFile (!fp)

Agora direciona pra main em vez de encerrar