tibtoa: Print trailing newline after programs

1 files changed, 1 insertions, 1 deletions

diff --git a/bin/tibtoa b/bin/tibtoa
index a620183..221c543 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -761,7 +761,7 @@ if ($header{type} eq 'program') {
 			$cache = '';
 		}
 	}
-	print $cache;
+	print "$cache\n";
 } elsif ($header{type} eq 'matrix' or $header{type} eq 'list') {
 	my ($step, $exp, $digit);
 	my $i = 0;