#!/usr/bin/perl

# O GERADOR DE TRIGRAMAS
#lê um texto taggeado com FreeLing
#escreve 3 lemas etiquetados por linha (trigramas)

$prev1 = "#";
$prev2 = "#";

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

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


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


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