#!/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\tINT\t\\N\tINT0\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\tINT\t\\N\tINT1\n";
    }
} elsif (m/^[0-9]+~/) {
} elsif ($_ eq '') {
} else {
    print STDERR; print STDERR "\n";
}
