print $writer "history; exit\n";