my $rows = $tb->body_height(); 
$pagelines = 50;

for my $i (0 .. $rows-1) {
	print $tb->title() if $i % $pagelines == 0;
	print $tb->body($i);
	print "\n" if $i % $pagelines == $pagelines-1;
}