#!/usr/bin/perl -w

  use Lingua::PT::Speaker;
  use Lingua::Ipa;

#  print( sampa2latextipa( toPhon("batatas")));
#  print( uniipa2latextipa(sampa2uniipa( toPhon("batatas"))));

#  print( sampa2latextipa( toPhon("batatas")));
   
print <<'.';
\documentclass[twoside,twocolumn]{book}
\usepackage[latin1]{inputenc}
\usepackage{a4wide}
\usepackage{t1enc}
\usepackage{dict}
\usepackage{tipa}
 
\begin{document}
.

  while(<>){ chomp;
    print "\\textbf{$_} - [" . sampa2latextipa(toPhon($_)) . "]\\\\";
  }

print <<'.';
\end{document}
.