#!/usr/bin/perl

# O GERADOR DE BIGRAMAS
#lê um texto taggeado com FreeLing
#escreve 2 lemas etiquetados por linha (bigramas)

$prev1 = "#";

while ($line = <STDIN>) {
      chop($line);
      ($token, $lema, $tag) = split (" ", $line);

      $tagged = "$lema\_$tag";


      print "$prev1 $tagged\n";
      $prev1 = $tagged;
}


print STDERR "foi gerado o ficheiro de bigramas\n";