#
# $Id$
#

sub pp{
	my $t = shift;

	foreach ($t) {				# ciclo não necessário
		s/\n/\\\\\n/g;
		s/([{}])/\\$1/g;
		s/_/\\_/g;
	}
 
	"\\begin{ttfamily}\n$t\n\\end{ttfamily}"
}

sub enumerate{
	my @t = @_;

	foreach (@t) {
#		s/\n/\\\\\n/g;
		s/([{}])/\\$1/g;
		s/_/\\_/g;
	}

	"\\begin{enumerate}\n\\item " . join("\n\\item ", @t) . "\n\\end{enumerate}"
}

sub itemize{
	my @t = @_;

	foreach (@t) {
#		s/\n/\\\\\n/g;
		s/([{}])/\\$1/g;
		s/_/\\_/g;
	}

	"\\begin{itemize}\n\\item " . join("\n\\item ", @t) . "\n\\end{itemize}"
}

1;

# vim:set ai ts=4 sw=4:
