#!/usr/bin/perl -n


chomp;
#      1      2                                3         4         5          6
if (m/^([(]+)?([-a-z󶼿A-ZʣӦ ]+)\[([^\[,]*),([^\[,]*),([^\[,]*)\]([).?,;:]+)?$/o) {
    $preint=$1;
    $forma=$2;
    $haslo=$3;
    $frektag=$4;
    $glotag=$5;
    $postint=$6;
    $numfrm++;
    if ($preint) {
	$numrek++;
	print "$numrek\t$numfrm\t$preint\t$preint\t\\N\tY0\n";
    }
    $numrek++; 
    # a co gdy w ogle brak tagu?
    @tagi = split('/',$glotag);
    @tagi = ('\\N') unless @tagi;
    foreach $tag (@tagi) {
	print "$numrek\t$numfrm\t$forma\t$haslo\t$frektag\t$tag\n";
    }
    if ($postint) {
	$numrek++;
	print "$numrek\t$numfrm\t$postint\t$postint\t\\N\tY1\n";
    }
} elsif ($_ eq "\227") {
    # mylnik
    $numfrm++; $numrek++;
    print "$numrek\t$numfrm\t---\t---\t\\N\tY2\n";
} elsif (m/^[0-9]+~/) {
    # nagwek prbki!
} elsif ($_ eq '') {
} else {
    print STDERR "$.:$_\n";
}
