#!/usr/bin/perl -n


chomp;
#      1      2                                3         4         5          6
if (m/^([(\204]+)?([-a-z󜟿A-Zʣӌ \'\341\350\351\366\374]+)\[([^\[,]*),([^\[,]*),([^\[,]*)\]([).?!,;:\224]+)?$/o) { 
    $preint=$1;
    $forma=$2;
    $haslo=$3;
    $frektag=$4;
    $glotag=$5;
    $postint=$6;
    (print STDERR "Pusta linia wewntrz prbki (l. $.)\n"), $numprobki=0
  	if !defined($numprobki);
    $numwiersza++;
    $numfrm++;
    if ($preint) {
	$numrek++;
	print "$numprobki\t$numwiersza\t$numrek\t$numfrm\t$preint\t$preint\t\\N\tY-----------0P\n";
    }
    $numrek++; 
    # a co gdy w ogle brak tagu?
    @tagi = split('/',$glotag);
    @tagi = ('\\N') unless @tagi;
    foreach $tag (@tagi) {
	print "$numprobki\t$numwiersza\t$numrek\t$numfrm\t$forma\t$haslo\t$frektag\t$tag\n";
    }
    if ($postint) {
	$numrek++;
	print "$numprobki\t$numwiersza\t$numrek\t$numfrm\t$postint\t$postint\t\\N\tY-----------1P\n";
    }
} elsif ($_ eq "\227") {
    # mylnik
    $numfrm++; $numrek++;
    print "$numprobki\t$numwiersza\t$numrek\t$numfrm\t\227\t\227\t\\N\tY-----------2P\n";
} elsif (m/^([0-9]+)~/) {
    # nagwek prbki!
    $numprobki=$1;
    $numwiersza=0;
} elsif ($_ eq '') {
    undef $numprobki;
} else {
    print STDERR "$.:$_\n";
}
